Zeig mal die
Unit ganz so kommt's nichts voran
Edit: So kann man was reinschreiben ohne dass gleich der ganze Text im Edit selektiert ist
Delphi-Quellcode:
procedure TForm2.EditEnter(Sender: TObject);
begin
//gemeinsame Rountine für die Edit-Komponenten auf dem Formular
TEdit(Sender).SelStart := 0;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
Edit1.SetFocus;
end;