hotkey kullanımı?

[incsoft]

********************************
//OnCreate eventine yazın:
If not RegisterHotkey
(Handle, 1, MOD_ALT or MOD_SHIFT, VK_F1) Then
ShowMessage('Unable to assign Alt-Shift-F1 as hotkey.') ;

//OnClose eventine yazın:
UnRegisterHotkey( Handle, 1 ) ;

//WM_HOTKEY mesajı için handler tanımlayalım:

private // form declaration
Procedure WMHotkey( Var msg: TWMHotkey ) ;
message WM_HOTKEY;

Procedure TForm1.WMHotkey( Var msg: TWMHotkey ) ;
Begin
If msg.hotkey = 1 Then Begin
//Hotkey basılınca yapılacak iş...
End;
End;
********************************


Yukarıdaki komutlarla programa dışarıdan komut gönderebiliyorum.Fakat sadece 1 adet komut.1 den fazla komut göndermek için ne yapmam gerekli?

[mrmarman]

Selam...

Önce gönderilen veya kodbankalarından bulduğunuz kodları kavramanız gerekir... Aslında sorduğunuz sorunun cevabı kodda var...

Lütfen çalışma prensibini araştırmak için önce bu kodu aldığınız kişiyle irtibata geçin. Kendisi cevap veremezse kodlarınızda bulunan fonksiyonları delphi helpinden veya internet'ten araştırıp, bulduğunuz bilgiler ışığında buraya sorun...

Buradan yaptığınız istek hazır kod isteği gibi bir anlam kazanıyor ki bu hoş bişey değil... Bu forum hazır kod üreten değil, Delphi'yi kavramaya yardımcı olacak bir forumdur...

Kod: Tümünü seç

If not RegisterHotkey 
(Handle, 1, MOD_ALT or MOD_SHIFT, VK_F1) Then 
ShowMessage('Unable to assign Alt-Shift-F1 as hotkey.') ; 

... yazmışsınız. Zaten burada alt alta istediğiniz kadar Hotkey tanımlayabiliyorsunuz...