Einzelnen Beitrag anzeigen

Jörn

Registriert seit: 5. Sep 2003
Ort: Helmstedt
312 Beiträge
 
#5

Re: Automatisch ins Edit-Feld springen

  Alt 7. Dez 2003, 22:02
Danke habs eben auch gefunden, wenn auch nur durch dummen Zufall.

MfG und ne gute Nacht

EDIT: man bin ich doof... hab trotzdem immer noch das Problem, das das Zeichen im Edit-Feld markiert wird...

Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key in [#33..#122]) and (edit1.Focused = false) then
begin
form1.Edit1.Text := form1.Edit1.Text + key;
form1.Edit1.SetFocus;
end;
end;
  Mit Zitat antworten Zitat