Modify behaviour of popup menu 1

[svanels]

I have a button with a TpopupMenu tied to it, so a right-click on the button displays the popup menu.

I need to link the popup menu to the onclick event of the button (left click), how do I proceed?

Thanks in advance.

Steven

 

[roo0047]

Just Double-click the in the Events tab of the Object Inspector of the button, next to "OnMouseUp". It will generate the following for you.

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

end;

Now, add the following so it looks like this:

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if button = mbRight then
    PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

The menu will pop-up wherever your mouse is. You could hard code it to pop-up at [100, 100] like this:

  PopupMenu1.Popup(100, 100);

Roo
Delphi Rules!

 

[svanels]

Thanks Roo, I did hard code it, but did not like the position,

I used:

if button = mbleft then

in your code snippet

Thanks!!


Steven

 

[roo0047]

This method is required for mbRight. If using mbLeft, you can just use event "OnClick" which is the default (left button click). Thanks for the *star*!

Roo
Delphi Rules!