Edit-Text markieren (nix funzt!)

[Nils_13]

Damit du besser SelLength etc. verstehen kannst:

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
begin
  with Edit1 do
  begin
    SelStart  := 0;    // von 
    SelLength := Length(Edit1.Text); // bis + markieren
  end;
end;