Как изменить цвет фона полей в RichEdit?

Question

Я использовал следующий код для добавления полей в RichEdit. Как изменить цвет фона?

procedure TForm1.Button1Click(Sender: TObject); 
var 
    LRect: TRect; 
begin 
    LRect := RichEdit1.ClientRect; 
    InflateRect(LRect, -25, -25); 
    RichEdit1.Perform(EM_SETRECT, 0, Integer(@LRect)); 
end; 

Answer 1

EM_SETRECT просто говорит RichEdit прямоугольника, где это разрешено, чтобы сделать его текст. Чтобы изменить цвет фона поля, на который вы резервируете место, вам нужно подклассифицировать RichEdit для обработки сообщений WM_PAINT напрямую, тогда вы можете рисовать все, что захотите, в этом пространстве.

Answer 2

Я не уверен, что это сработает, но вы можете послать сообщение EM_SETEDITSTYLE, чтобы установить SES_EXTENDBACKCOLOR, который я использовал в прошлом, - это приводит к тому, что цвет фона распространяется на поля. См. this MSDN page для более подробной информации.