DBGrid上显示图片? 现在想在DBGrid的标题栏中显示图片。把以前的汉字用图片的形式显示出来。不知道可否实现?想在TabSet控件中加入图片,(包括单个Tab选择时和未选择时)都用图片来显示!有做过类似程序的朋友吗?请帮忙! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 void __fastcall TForm1::DBGrid2DrawColumnCell(TObject *Sender, const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State){if (DBGrid2->Columns->Items[DataCol]->FieldName == "23"){DBGrid2->Canvas->FillRect(Rect);if (DBGrid2->Columns->Items[DataCol]->Field->AsString == "23"){ImageList1->Draw(DBGrid2->Canvas,Rect.Left+4,Rect.Top,0,True);}else if (DBGrid2->Columns->Items[DataCol]->Field->AsString == "12"){ImageList1->Draw(DBGrid2->Canvas,Rect.Left+4,Rect.Top,1,True);}else{ImageList1->Draw(DBGrid2->Canvas,Rect.Left+4,Rect.Top,2,True);}}elseDBGrid2->DefaultDrawColumnCell(Rect,DataCol,Column,State);}给你参考,C的,改一下 To zyl2001 (afaafa) 没有做过,靠自己了 一个奇怪的问题,关于控制EmbeddedWB中的滚动条自动滚动发现的问题! 调用ShellExecute后关闭工程就报错! 关于循环、判断的问题,弄晕了,急!大家帮一帮忙!!! 如何把form1里的变量值传到rave里去 如何在memo中加载文件呢? 在线!! 在Delphi中如何实现字符和数字之间的转换? !!!!!!!!!!!!dbgrid的问题?????求解? 我老大(亲兄弟)要结婚,不知道送给他什么才好! 编写销售系统的题问? delphi中关于钩子得问题 今天在95927的帖子里看到的。 碰到一个比较难搞的问题,高手进来看看
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
if (DBGrid2->Columns->Items[DataCol]->FieldName == "23")
{
DBGrid2->Canvas->FillRect(Rect);
if (DBGrid2->Columns->Items[DataCol]->Field->AsString == "23")
{
ImageList1->Draw(DBGrid2->Canvas,Rect.Left+4,Rect.Top,0,True);
}
else if (DBGrid2->Columns->Items[DataCol]->Field->AsString == "12")
{
ImageList1->Draw(DBGrid2->Canvas,Rect.Left+4,Rect.Top,1,True);
}
else
{
ImageList1->Draw(DBGrid2->Canvas,Rect.Left+4,Rect.Top,2,True);
}
}
else
DBGrid2->DefaultDrawColumnCell(Rect,DataCol,Column,State);}给你参考,C的,改一下
没有做过,靠自己了