5,929
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Billy_Chen28 2003-11-13
- 打赏
- 举报
OnDrawCell:
var
s:string;
r:TRect;
begin
with stringgrid1 do
begin
Canvas.FillRect(Rect);
s:=Cells[ACol,ARow];
r:=Rect;
DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
end;
end;
var
s:string;
r:TRect;
begin
with stringgrid1 do
begin
Canvas.FillRect(Rect);
s:=Cells[ACol,ARow];
r:=Rect;
DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
end;
end;
yuqianyi 2003-11-13
- 打赏
- 举报
怎样才能让stringgrid单元格中的文本居中对齐？
yuqianyi 2003-11-03
- 打赏
- 举报
dickeybird888(于伟刚):请发给我吧!我的email是yuqianyi1974@163.com,先谢谢了!
dickeybird888 2003-10-29
- 打赏
- 举报
我有一个例子，要的话告诉我地址我发给你！
sixgj 2003-10-29
- 打赏
- 举报
呵呵。都在属性查看器里。
