Menü’ye Item Ekleme Ve Click Olayı Tetikleme


   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;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
mervenur.demic Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Ekim 2018 Durum: Aktif Değil Puanlar: 262	Mesaj Seçenekleri Yanıt Yaz Alıntı mervenur.demic Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Menü’ye Item Ekleme Ve Click Olayı Tetikleme Gönderim Zamanı: 31 Ekim 2018 Saat 13:53
	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;