HTML-Editor

[yankee]

Für den Fall, dass du meinst, wie ich den Text manuell Fett drucke, also indem man auf Sonstiges -> HTML-Hevorhebung ausführen drückt, dann, dann mache ich das so:

Delphi-Quellcode:

procedure TForm1.HTMLHervorhebungausfhren1Click(Sender: TObject);
var start,zeichen:integer;
begin
if richedit1.Lines.Strings[1] <>'' then
   begin
   start :=0;
   Zeichen:=RichEdit1.GetTextLen;
   repeat
   richedit1.SelStart :=richedit1.FindText('<',start,1000,[stMatchCase]);
   richedit1.SelLength :=richedit1.FindText('>',start,1000,[stMatchCase]) -richedit1.SelStart;
   richedit1.SelAttributes.Style :=[fsbold];
   richedit1.SelAttributes.Color :=clblack;
   inc(start);
   until start=zeichen
   end;
end;

Mein Problem ist aber, dass dies nur funzt, wenn der Blinker (ähh, also keine Ahnung wie das genau heißt, jedenfalls, das Teil, was immer an der Stelle ist, wo man gerade schreibt) ganz am Anfang der richbox ist. Und jetzt frage ich mich, wie man den "Blinker" automatisch an den Anfang setzen kann.

Dann könnte ich auch nach dem Erstellen einer neuen Datei diese procedure automatisch ausführen.