//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;