Indsæt pre-defineret tekst i RichEdit

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
RichEdit1.SelText := '<b></b>';
end;

Perfekt, Ziggs. Mange tak :)

Forresten.. Hvordan laver jeg et line break ?

En HTML kode, eller bare en ny linie? hvis det er en ny linie tror jeg bare det er:
RichEdit1.SelText := #13;
Det er ikke testet, men det skulle virke :-)

Det giver en federe effekt hvis man bruger:
  RichEdit1.SelText := '<b>' + RichEdit1.SelText + '</b>';

Prøv med den kode at markere et stykke tekst i din RichEdit og trykke på knappen :o)

Desuden er linjeskift i Windows #13#10 - hvis det skal være helt rigtigt :o)

Hvor kommer #10 fra?

ziggs -> Enter sender både #13 og #10 :o)

Prøv at lave et nyt Delphi-projekt, og indsæt to TMemo'er på din form, Memo1 og Memo2.

Skriv så følgende kode i Memo1's OnChange:
procedure TForm1.Memo1Change(Sender: TObject);
var
  I: Integer;
begin
  Memo2.Text := '';

  for I := 1 to Length(Memo1.Text) do
    Memo2.Text := Memo2.Text + '#' + IntToStr(Ord(Memo1.Text[I])) + ' ';
end;

Kør projektet, og prøv at skrive noget i Memo1 - prøv også at trykke på Enter :o)

Tak, Athlon. Det er self. meget smartere :)