如何对StringGrid字体进行居中？

学以致用1 · 发表于 2016-10-27 20:18:31

您需要登录才可以下载或查看，没有账号？立即注册

x

aminghanhua · 发表于 2016-11-12 17:33:45

新版本可以设置
旧版本

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Str: String;
R: TRect;
begin
with StringGrid1 do
begin
Canvas.FillRect(Rect);
Str := Cells[ACol,ARow];
R := Rect;
DrawText(Canvas.Handle,PChar(Str),Length(Str),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER); //文字居中
end;
end;

复制代码

lxl16 · 发表于 2016-11-13 21:13:50

学以致用1 · 发表于 2016-11-18 14:41:50

aminghanhua 发表于 2016-11-12 17:33
新版本可以设置
旧版本

谢谢！！！

学以致用1 · 发表于 2016-11-18 14:45:45

lxl16 发表于 2016-11-13 21:13

账号		自动登录	找回密码
密码			立即注册