Popupmenu ovenpå en button

din kanp har en property der hedder popup menu brug den !

jens B

Ja, men det er kun med højreklik, er det ikke?

Se bare her er et eksempel, hvor du benytter din form\'s onmousedown procedure:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button = mbleft then
  popupmenu1.popup(x+form1.left,y+form1.top);
end;

således gør man det... håber at det var svar nok

ZeroHero

Er jeg den eneste der ser en indlysende \"fejl\" her:

>...hvor du benytter din form\'s onmousedown procedure:
>
>  ...Form1.FormMouseUp(Sender...

;)


Peter

Hir Hir