我有个例子,是用的stringgrid控件,你参考一下:
procedure Tfrmclerktable.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
StringGrid1.RowHeights [arow] := 40 ;
if (arow = 0)and (acol=5) then
begin
stringgrid1.canvas.textout(rect.left+10,rect.top+4,'你好');
stringgrid1.canvas.textout(rect.left+5,rect.top+20,'可以吗?');
end;
end;
procedure Tfrmclerktable.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
StringGrid1.RowHeights [arow] := 40 ;
if (arow = 0)and (acol=5) then
begin
stringgrid1.canvas.textout(rect.left+10,rect.top+4,'你好');
stringgrid1.canvas.textout(rect.left+5,rect.top+20,'可以吗?');
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货