Mega Code Archive

 

Categories / Delphi / Examples

 

[] Enter ile tab gibi hareket etmenin en kisa yolu

//Ersin Kecis. 04/03/2003. ersinkecis@hotmail.com //design-time sirasinda formun keypreview ini true yapmayi unutmayin. //Enter a basarak form da tabstop sirasina gore ileri, shift-enter ile de geri... procedure TForm1.FormKeyDown(Sender:TObject;var Key:Word;Shift:TShiftState); begin if Key=13then begin Key:=0;Perform(WM_NEXTDLGCTL,byte(Shift=[ssShift]),0);end; end;