Editfeld - Cursor ans Ende setzen oder ausblenden

[himitsu]

Delphi-Quellcode:

Edit1.SelStart := Length(Edit1.Text) - 3;
Edit1.SelLength := 3;
Edit1.SelText := '';

löscht die letzen 3 Zeichen


Text einfügen/anhängen

Delphi-Quellcode:

Edit1.SelStart := i;
// diese Zeile kann weg, da SelLength durch SelStart auf eh 0 steht
//Edit1.SelLength := 0;
Edit1.SelText := Text;

Text ersetzen

Delphi-Quellcode:

Edit1.SelStart := i;
Edit1.SelLength := Len;
Edit1.SelText := Text;
Edit1.SelStart := i + Length(Text);

Text löschen

Delphi-Quellcode:

Edit1.SelStart := i;
Edit1.SelLength := Len;
Edit1.SelText := '';
Edit1.SelStart := i + Length(Text);