PopupMenu på en TButton

<quote>Hvordan får jeg, ved et klik på en TButton, en TPopupMenu til at "springe" frem umiddelbart under knappen? Jeg ved godt at man bare kan sætte knappens egenskab PopupMenu := PopupMenu1; men den aktiveres jo så kun ved et højreklik! Dette skal ske ved et almindeligt venstreklik...</quote>

procedure TForm1.Button1Click(Sender: TObject)
var
p: TPoint;
begin
p := Point(Button1.Left, Button1.Top+Button1.Height);
p := ClientToScreen(p);
PopupMenu1.Popup(p.x, p.y);
end;

Det mener jeg virker.

Niels
http://www.niller.f2s.com/ - always there...
http://g4s.dnsq.org/ - when I'm online!

Hej Martin...

Jeg er ikke helt sikker på at det er det du ønsker, men prøv at tage en TToolButton (sådan en der ligger på en TToolbar) og sæt dens DropDownMenu til din Popupmenu og dens Style til tbsDropDown. Så får du sådan en smart knap der kan lidt af hvert :-)

--
Mvh.

Kasper (TSW)
Webmaster

<quote>Hej Martin...

Jeg er ikke helt sikker på at det er det du ønsker, men prøv at tage en TToolButton (sådan en der ligger på en TToolbar) og sæt dens DropDownMenu til din Popupmenu og dens Style til tbsDropDown. Så får du sådan en smart knap der kan lidt af hvert :-)

--
Mvh.

Kasper (TSW)
Webmaster</quote>

Placer følgene i knappens onclick procedure :
PopUpMenu.Popup(mouse.CursorPos.x,mouse.CursorPos.y);