treeview den popup menuye aktarım

[shooterman]

(01-09-2023, Saat: 17:38)mrmarman Adlı Kullanıcıdan Alıntı: Bir satır üstte olsun çalışır.

Menuye eklemeden önce OnClick ataması yapmalısınız.

Bir de eğer Child yoksa atama yapın ki alt menü açılırken tetikleme yapmasın. Alt menü yoksa OnClick ataması yapılsın.

procedure TForm16.HandlePopupItem(Sender: TObject);
begin
if (Tmenuitem(sender).HasParent) then
// if (Tmenuitem(sender).count <1) then
  ShowMessage(TMenuItem(Sender).Caption);
end;

@mrmarman  hocam alttaki şekli ile denedim, evet mouse daha ilk menü üzerine gelince tetikledi. Child yoksa yapısını bir türlü oluşturamadım.