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('TestMesaj');         

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;