Es ginge natürlich auch ein eigenes Ereignis, z.B. so:
Delphi-Quellcode:
const WM_AFTERENTER = 50;
// mit der passenden Methode
procedure WMAfterEnter(
var Msg: TMessage);
message WM_AFTERENTER;
// und dann:
procedure TForm1.EditURLEnter(Sender: TObject);
begin
PostMessage(
Handle, WM_AFTERENTER, 0, 0);
end;
procedure TForm1.WMAfterEnter(
var Msg: TMessage);
begin
if EditURL.Enabled
and (Length(EditURL.Text) = 0)
then begin
EditURL.Text := '
http://';
EditURL.SelStart := EditURL.GetTextlen;
end;
end;