Games Delphi

  1. Home
  2. Delphi
  3. Games
  4. [] Enter, aşağı ve yukarı okları tab gibi kullanma
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;