Mega Code Archive

 

Categories / Delphi / Games

 

[] 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;