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 :wall:

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 :wall:

Muss man das vielleicht ganz anders machen? :gruebel:

[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! :)