Что послать в RichEdit?

[Alex Cones]

Что послать в ричедит, чтобы установить у него цвет фона в $FF0000?

SendMessage(RCEMain, WM_...

[Lemo]

А так не подойдет? => Фон всего ри4Эдита

RichEdit1.Color:= $FF0000;

Фон напечатаных букв:

uses
 RichEdit;
procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
var
 Format: CHARFORMAT2;
begin
 FillChar(Format, SizeOf(Format), 0);
 with Format do
 begin
  cbSize := SizeOf(Format);
  dwMask := CFM_BACKCOLOR;
  crBackColor := AColor;
  Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RE_SetSelBgColor(RichEdit1, clYellow);
end;

end.

[Alex Cones]

Содержание API - 100%. Натуральный продукт.

P.S. Если можно настроить фон рича еще при его создании (CreateWindowEx), буду очень рад.

[raxp]

гы-гы
изменение фона richedit прямая операция

SendMessage(hwndRichEdit, EM_SETBKGNDCOLOR, 0, $FF0000)

[Alex Cones]

EM_SETBKGNDCOLOR - UndeclaredIndentifier. К сожалению. Может как-то по-другому пишется? Или Юзес какой нужон?
--------------
Подключил RichEdit, заработало. Спасибо!

P.S. Форум опять не позволяет сказать спасибо в электронном виде ((