一个小的问题 TDBCtrlGrid 是继承于 TWinControl 的,对 TDBCtrlGrid 控件使用 GetDC 得到 TDBCtrlGrid 控件的 HDC,然后再用 Windows API 画图就行了,当然用 TCanvas也是可以的, TCanvas.Handle 就是 HDC 类型。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 看样子你是位高手, 因为我对api编程不太熟悉, 您能不能讲得更具体一些,谢了! var MyHDC: HDC; MyCanvas: TCanvas; MyDraw: TGraphic;begin MyHDC := GetDC(DBCtrlGrid1.Handle); MyCanvas := TCanvas.Create; MyDraw := TBitmap.Create; MyCanvas.Handle := MyHDC; MyDraw.LoadFromFile('你的图片文件名'); MyCanvas.Draw(0, 0, MyDraw); MyDraw.Free; MyCanvas.Free; ReleaseDC(DBCtrlGrid1.Handle, MyHDC);end; 那就要自己继承 TDBCtrlGrid 了,自己做一个自定义的控件吧。也可以在显示其他数据前先画啊~ 其实,它在显示数据时都要重画整个表。要解决这个问题得重载它的这个操作。有一些麻烦,不如去找个能实现它的控件,如 ExpressQuantumGrid,在 www.inprises.com 可以下载。 UP it again with Nizvoo ★★★利用报表控制软件注册,你是高手你进来★★★ 请教!(急!急!急!急!)在线等!!! odac的数据表更新问题 delphi5图表控件的下载地址 FastReport的问题 大家帮我出出主意,一个文本文件的问题,时间紧急,明天就要用啊! Rave做报表时,要求preview时,不出现那个OutPut Options,并且预览时,要求全屏显示 有谁知道AHM控件包怎么装上的? 为什么添加一条记录后,FORM自动关掉了? 请帮我看看:数据导出问题,谢谢! 请问各位大虾怎样动态改变报表的每列的宽度呢? 请问如何更改窗体的标题栏和最大化/最小化/关闭按钮啊?
MyHDC: HDC;
MyCanvas: TCanvas;
MyDraw: TGraphic;
begin
MyHDC := GetDC(DBCtrlGrid1.Handle);
MyCanvas := TCanvas.Create;
MyDraw := TBitmap.Create; MyCanvas.Handle := MyHDC;
MyDraw.LoadFromFile('你的图片文件名');
MyCanvas.Draw(0, 0, MyDraw);
MyDraw.Free;
MyCanvas.Free;
ReleaseDC(DBCtrlGrid1.Handle, MyHDC);
end;