RichEdit Hintergrundfarbe ändern klappt nicht??

[DeddyH]

In einem kurzen Test hat das hier zumindest bei mir funktioniert:

Delphi-Quellcode:

var
  Formatierung: TCharFormat2;
begin
  Formatierung.cbSize := SizeOf(Formatierung);
  SendMessage(RichEdit1.Handle, EM_GETCHARFORMAT, SCF_SELECTION,
    LongInt(@Formatierung));
  Formatierung.dwMask := Formatierung.dwMask or CFM_BACKCOLOR;
  Formatierung.dwEffects := Formatierung.dwEffects and not CFE_AUTOBACKCOLOR;
  Formatierung.crBackColor := clRed;
  SendMessage(RichEdit1.Handle, EM_SETCHARFORMAT, SCF_SELECTION,
    LongInt(@Formatierung));
end;