如题!
解决方案 »
- 今天发现SPCOMM的一个缺陷
- delphi中如何用正则表达式?我是新手请大家帮忙
- 这是一网友的作品,可我看不懂这段源代码呀,好多函数都不知道呀,还请高手来做点注释呀,高分相送~!!!!!!!!!!!
- 如何检测系统是否已经安装了繁体?
- 如何在quickreport中实现这样的报表?
- 怎么加载sql文件 我的方法错在哪
- 求助:用过ehlib控件的大侠们看过来!
- cxgrid 下拉列表查找问题
- 各位,我用的是win2000,现在任务栏上的时候显示为:13:13:28 但现在时间为13:28分,是什么原因啊?
- 1.哪有图标啊?我想要像工具栏上的剪切,复制等那样的系统图标怎么找啊?
- 关于Tstringgrid控件
- 请问xml格式得文件中得文本换行怎么实现啊,谢谢
Rect: TRect; State: TGridDrawState);
var CellStr: String;
Mode: Integer;
begin
if ARow=0 then
Mode := DT_CENTER //調整左右
else
Mode := DT_RIGHT;
Rect.Top := Rect.Top+3; //調整上下 CellStr := StringGrid1.Cells[ACol,ARow];
StringGrid1.Canvas.FillRect(Rect);
DrawText(StringGrid1.Canvas.Handle,PChar(CellStr),Length(CellStr),Rect,Mode);
end;