我使用以下代码向 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;
最佳答案
EM_SETRECT
只是告诉 RichEdit 允许呈现文本的矩形。要更改您为其保留空间的边距的背景颜色,您必须对 RichEdit 进行子类化以直接处理 WM_PAINT
消息,然后您就可以在该空间中绘制任何您想要的内容。
关于delphi - 如何更改 RichEdit 中边距的背景颜色?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30928001/