如何对StringGrid字体进行居中？

学以致用1

如何对StringGrid字体进行居中？

aminghanhua

新版本可以设置
旧版本

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

学以致用1

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

谢谢！！！

学以致用1

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