Delphi Automatisch ins Edit-Feld springen

Thema durchsuchen

Ansicht

Themen-Optionen

Automatisch ins Edit-Feld springen

Ein Thema von Jörn · begonnen am 7. Dez 2003 · letzter Beitrag vom 8. Dez 2003

Vorheriger Beitrag

Nächster Beitrag

Jörn

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

Re: Automatisch ins Edit-Feld springen

8. Dez 2003, 15:13

Jo geile Sache...
falls es jemanden interessiert, hier das Ergebnis:

markieren

Delphi-Quellcode:

			procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

if (key in [#33..#122]) and (edit1.Focused = false) then

with form1.Edit1 do

begin

Text := form1.Edit1.Text + key;

SetFocus;

SelStart := form1.Edit1.SelLength;

end;

end;