Text im Memo markieren?

[malo]

Ja, wie kann man einen Text markieren? Ich will nämlich den gesamten Text in einem Memo markieren. Ich hab auch schon gesucht und herausgefunden, dass es mit SelLength geht, aber das funktioniert irgendwie nich richtig

Mein code:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo2.SelStart := 1;
  Memo2.SelLength := Length(Memo2.Text);
end;

Nur der Text wird nicht markiert

Muss man das vielleicht ganz anders machen?

[s.h.a.r.k]

code]Hey!

Also es gibt da nen wesentlich einfacheren Befehl:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelectAll;
end;

Aber wenn du es unbedingt mit SelStart und SelLength machen willst dann geht das wie folt:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelStart := 0;
  Memo1.SelLength := Length(Memo1.Text);
  Memo1.SetFocus; // Diese Zeile hast du vergessen, denn sonst siehst du die Markierung nicht!
end;

mfg shark

[malo]

Ah, danke!