Anasayfa > Kodlar > Delphi ile Enter, Tab, aşağı ve yukarı tuşlarını kullanmak

Delphi ile Enter, Tab, aşağı ve yukarı tuşlarını kullanmak


Formda enter,aşağı ve yukarı okları kulanarak kontroller arasında gezme


Procedure TForm1.FormCreate(Sender:TObject);
Begin
Keypreview:=True;
end;

Procedure TForm1.FormKeypress(Sender:TObject;Var key:Char);

Begin
if key=#13 then begin
key:=#0;
PostMessage(Handle,WM_NEXTDLGCTL,0,0);
end;
end;

Procedure TForm1.FormKeypress(Sender:TObject;Var key:Word);

Begin
if key=vk_up then PostMessage(Handle,WM_NEXTDLGCTL,1,0);
if key=vk_down then PostMessage(Handle,WM_NEXTDLGCTL,0,0);
end;
end;

İmdat ACAR


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: