Aber um es noch mal zusammenzufassen. Das Problem ist ja das Onclick mit der Maus. Wenn man durch Tab in das Eingabefeld wechselt funktioniert es ja richtig.
Ich würde wie in weiter oben schon angegeben auch noch das Onclick Ereignis zusätzlich zum OnEnter nutzen
Delphi-Quellcode:
procedure TForm16.EditurlClick(Sender: TObject);
begin
if EditURL.Text = 'http://' then
EditURL.SelStart := EditURL.GetTextLen;
end;
procedure TForm16.EditurlEnter(Sender: TObject);
begin
if ((EditURL.Enabled) and (Length(EditURL.Text) = 0)) then begin
EditURL.Text := 'http://';
EditURL.SelStart := EditURL.GetTextLen;
end;
end;
Ich denke so funktioniert es wie der TE es sich vorgestellt hat