with RichEdit1 do
begin
SelText := 'blablabla';
SetFocus;
end;
Det virker!!
Men kan man ikke gøre sådan at man kan indsætte flere linier? Sådan som det er nu kan man kun sætte en linie ind.
Det kan man vel nok. Du kan enten lave en string hvor du benytter dig af #13#10 (carriage return, line feed) til at lave flere linjer eller du kan bruge f.eks. en TStringList til det.
Det med at bruge en string kan du gøre på følgende måde:
var
s: string;
begin
s := 'Linje 1' + #13#10 + 'Linje 2' + #13#10 + 'Linje 3';
RichEdit1.SelText := s;
//mere kode
end;
TStringList kan du bruge på følgende måde:
var
SL: TStringList;
begin
SL := TStringList.Create;
try
SL.Add('Linje 1');
SL.Add('Linje 2');
SL.Add('Linje 3');
RichEdit1.SelText := SL.Text;
//mere kode
finally
SL.Free;
end;
end;