1,183
社区成员
发帖
与我相关
我的任务
分享
var
Rect: TRect;
begin
RichEdit1.Alignment := taCenter;
Rect := RichEdit1.ClientRect;
OffSetRect(Rect, 0, (Rect.Bottom - Canvas.TextHeight(RichEdit1.Lines[0]) * RichEdit1.Lines.Count) div 2);
SendMessage(RichEdit1.Handle, EM_SETRECT, 0, LParam(@Rect));
end;
SetWindowLong(RichEdit1.Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE);or ES_CENTER);