Mega Code Archive

 

Categories / Delphi / Games

 

[] Tab yerine enter tuşu

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if (Key = #13) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end; end;