Does PopupMenu.PopupComponent work in Lazarus?

[dkjMusic]

First, do I have to implement myself a right-click popup menu for SynEdit to get right-click Cut,Copy,Paste,Delete functionality?

If so, I would like to use the PopupComponent property of the popup menu to determine which of three SynEdit's popped the menu. But, the following code leaves all the menu items enabled even when there is no selected text in ChecklistSynEdit when I right-click ChecklistSynEdit:

procedure TForm1.EditPopupMenuPopup(Sender: TObject);
begin
     if EditPopupMenu.PopupComponent =  ChecklistSynEdit then
        with ChecklistSynEdit do begin
             CutItem.Enabled := SelText <> '';
             CopyItem.Enabled := SelText <> '';
             DeleteItem.Enabled := SelText <> '';
             PasteItem.Enabled := Clipboard.HasFormat(CF_TEXT) ;
        end;
end;

If I remove the if EditPopupMenu.PopupComponent... check, the enable's work as expected.

[typo]

I can confirm that. The problem seems to be with the property PopupComponent.

[dkjMusic]

It did work after all when I typecast PopupComponent as a SynEdit:

function TForm1.ActiveSynEdit(): TSynEdit;
begin
     Result := TSynEdit(EditPopupMenu.PopupComponent);
end;

[Martin_fr]

Actually, it does not work in synedit (yet)
http://bugs.freepascal.org/view.php?id=19033

Note: synEdit does not pop the popup in the wm_popup menu event, it does it in either mouse-down or mouse-up.

this is because in SynEdit you can configure, if you want the popup in mouse down or up, and also on which mouse button, and/or with which shift/ctrl/..