Aktif Kodlama İle Menü’ye Item Ekleme Ve Click Olayı Tetikleme Nasıl Yapılır ?           

Stok Kartı İçin Örnek Kodlama

uses Menus;

procedure TestMenuClik(Sender: TObject);

begin       

   showmessage('Test Mesaj');         

end; 

var   

 xMenuItem : TMenuItem;                                             

begin                                            

    If AppInfo.AppInRunTime Then

    Begin             

         xMenuItem := TMenuItem.Create(GrdStokHr.PopUpMenu);

         xMenuItem.Caption := 'Test Menü';

         xMenuItem.Name := 'TestMenu';

         TMenu(GrdStokHr.PopUpMenu).Items.Insert(0,xMenuItem);

         xMenuItem.OnClick := 'TestMenuClik';        

     end;

end;