demo: many controls sharing one TPopupMenu

[kapibara]

There were several similar controls on my form, and all needed a popup menu. But using one popupmenu for each control seemed too much of clutter. TPopupMenu has the PopupComponent property to help out here, I discovered:

Assign the calling control to PopupMenu.PopupComponent programmatically just before showing the popup and then call the appropriate method. Check the demo I made if you think this could be useful.

[Blaazen]

Nice, although you use left mouse button to show the pop-menu, it is unusual.

The same job can be done using OnContextPopup event which is triggered before the pop-menu is displayed. TSpeedButton, which you use in your demo, hasn't got this event published but I believe it's there, it only has to be assigned at run-time (via code).

Shared code for the event can look like this:

Code: [Select]

procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  pmShared.PopupComponent:=TComponent(Sender);
end;
It will assign to property PopupComponent the control which raises the pop-menu.

[kapibara]

Thanks, the SpeedButton doesn't seem to have any OnContextPopup though.

In my app the speedbutton serves as label and dropdown-button for a some comboboxes. Saves space.

Is there an advantage of using OnContextPopup? For fun I tried to use it with a TLabel, to mirror the behaviour with the speedbutton, but didnt get it to work at first try.

The attached demo shows how I use it with comboboxes.

[Blaazen]

Is there an advantage of using OnContextPopup?

I wouldn't say advantage but it's a more native approach.

... but didnt get it to work ...

You need to assign pop-menu to PopupMenu property and assign OnContextPopup event. Then right-mouse-button will trigger the event and show the pop-menu.