TEdit İçinde Tab Tuşuna Basılınca Algılamak

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
RamazanG
Üye
Mesajlar: 73
Kayıt: 16 Tem 2010 03:38

TEdit İçinde Tab Tuşuna Basılınca Algılamak

Mesaj gönderen RamazanG »

Makale: Zarko Gajic.
Ç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;
Cevapla