如题
解决方案 »
- DELPHI界面嵌入其他软件用什么控件?
- 批处理拷贝文件打补丁,怎么实现拷贝多目录文件夹(C#或批处理实现都可以)
- 初学delphi开发web,怎么在网页中运行做好的exe呢?
- dbgrid的输入法
- 小弟刚学Fastreport,请教一个用Fastreport的主从表例子。在线等待,解决即得分。
- 如何获取一个ACCESS数据库中所有表的名称,并检查某一表名是否已经存在?
- 在三层中怎么实现离线操作?有无必要?
- 请教各位哪有以下几本书免费下载,能下来一定给分
- 50分请教一个简单的SQL Server7.0触发器的写法。
- 如何解决下面的问题 !!!
- 怎么样才能将开发手机游戏??
- 请教线程关闭的问题。
-----------------------------------
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
Var
Grid:Tdbgrid;
Textto:String;
G_rect:Trect;
begin
G_rect:=Rect;
Grid:=Tdbgrid(Sender);
If field.IsBlob then
begin
Grid.Canvas.FillRect(Rect);
Textto:=Field.AsString ;
Drawtext(Grid.Canvas.Handle,pchar(textto),strlen(pchar(textto)),
G_rect,DT_Wordbreak);
end;
end;
谢谢!能显示了,你能否解释以下?