Çeviri: Ramazan Gülbahar.
CMDialogKey procedure ile kolayca yapabiliriz. Nasıl çalıştığını görnek için formun üzerine bir Edit yerleştir ve aşşağıdaki kodu yaz.
Kod: Tümünü seç
{ private bölümü}
procedure CMDialogKey(Var Msg: TWMKey) ;
message CM_DIALOGKEY;
...
//implementation
procedure TForma.CMDialogKey(Var Msg: TWMKEY) ;
begin
if (ActiveControl is TEdit) and
(Msg.Charcode = VK_TAB) then
begin
ShowMessage('TAB tuşu basıldı') ;
end;
inherited;
end;