Curosr in TEdit ans Ende setzen

[Bummi]

ein Versuch ...

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
begin
   if TEdit(Sender).Tag <> 0 then
      begin
      TEdit(Sender).Tag := 0;
      TEdit(Sender).SelStart := Length(TEdit(Sender).Text) + 1;
      end;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
   With TEdit(Sender) do
    begin
      if Length(Text)=0 then
          begin
            Text := 'http:\\';
            SelStart := Length(Text) + 1;
            Tag := 1;
          end;
    end;
end;