Hallo,
unter Ereignisse gibts "OnSelectionChange". Beim aufrufen kast du folgendes hinschreiben:
Delphi-Quellcode:
var inUse: Boolean;
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
var Start: integer;
var length: integer;
begin
if inuse = true then
exit;
inUse := true;
Start := Richedit1.SelStart;
length := richedit1.SelLength;
richedit1.SelectAll;
richedit1.SelAttributes.Color := clBlack;
Richedit1.selStart := Start;
Richedit1.SelLength := length;
Richedit1.SelAttributes.Color := clBlue;
inuse := false;
end;
Funktioniert eigentlich gar nicht so schlecht...
Falls die schreibwiese manchen komisch vorkommt, bin newb.
