Butto: alles markieren in RichEdit

[Sharky]

Hai ByteLord,

Zitat von ByteLord:

Hi!
wie kann ich einen Button machen, der den gesamten text eines richedits markiert?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit1.HideSelection := False;
 RichEdit1.SelStart := 0;
 RichEdit1.SelLength := Length (RichEdit1.Text);
end;