Merhaba arkadaşlar,
Programımda bir işlev için kısa yol atamak istiyorum ancak keydown veya keypress olaylarında tuşları kontrol etmek yerine shortcut değerini atamak istiyorum.
En azından ana menüde veya popup menüde bulunan işlevler için olaylar ile uğraşmak istemiyorum. Main yada popup menüdeki elemanların tasarım anında shortcut değeri belirlenebiliyor ancak runtime da bu değerleri nasıl atayacağımı bilemiyorum.
Örnek olarak şöyle bir şey yaptım ancak çok farklı sonuç elde ettim.
Örneğin Ctrl+F4 değeri için
menueleman1.shortcut := vk_control+vk_f4
dedim runtime da kısayol f21 göründü. Bİrde bunun diğer boyutu var Ctrl+D gibi
kısaca "Shift+Ctrl+D" gibi bir kısayol değerini nasıl atayabilirim.
Teşekkürler
ShortCut değeri atama
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
ShortCut değeri atama
En son serbek_tr tarafından 20 Mar 2012 03:17 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
Procedure Forum.Imza(Sender: TObject)
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;
Re: ShortCut değeri atama
Arkadaşlar saatlerdir google da sonuç arıyordum, ancak sizden yardım isteyince kısa bir sonuca ulaştım. Kusura bakmayın artık.
Sonucuda paylaşmak isterim.
Teşekkürler
Sonucuda paylaşmak isterim.
Teşekkürler
Kod: Tümünü seç
Menuitem.ShortCut := ShortCut (Word('N'),[ssCtrl]+[ssShift]);Procedure Forum.Imza(Sender: TObject)
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;