popmenu

prøv
  FPopupMenu:= TPopUpMenu.Create

Det var et svar

T_JB_ListBox = class(TListBox)
  private
    FPlysHest: TPopupMenu;
    procedure SetPlysHest(const Value: TPopupMenu);
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    property PlysHest : TPopupMenu read FPlysHest write SetPlysHest;
  end;

{ T_JB_ListBox }

constructor T_JB_ListBox.Create(AOwner: TComponent);
begin
  inherited;
  FPlysHest := TPopupMenu.Create(Self);
end;

destructor T_JB_ListBox.Destroy;
begin
  FreeAndNil(FPlysHest);
  inherited;
end;

procedure T_JB_ListBox.SetPlysHest(const Value: TPopupMenu);
begin
  FPlysHest := Value;
end;


Med andere ord :
  brug : FPopupMenu := TPopupMenu.Create(Self);

med andre ord lige hvad jeg skriver ;-))

ja jo jaee ....

Den store forskel er bolt at jeg bruger self som owner. Mens du ikke taget stilling til det ...

Endvidere indeholder mit svar en hest ! Det gør dit ikke ! Øv bøv ! :-)

Også havde jeg ikke set dit svar dat jeg svarede

Jens B

Min form hedder  CitronBlåHest..den bliver owner

procedure TCitronBlaaHest.Button1Click(Sender: TObject);
var
  FPopupMenu: TPopupMenu;
begin
  FPopupMenu:= TPopupMenu.Create(CitronBlaaHest);
end;

Hvad blev der af de jumbo-prikede heste ????

martin >> Hvad har du røget ?

JEns B

Det samme som jer, hestepærer !!

FPopupMenu:= TPopUpMenu.Create virker fint. Tak


sorry borrisholt, morten_s kom først.

Fair nok .. Han er også gammelst !!!!