DBgrid问题:点击dbgrid表的某一列表头,可以使该列变成指定颜色,如何实现? 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //这是我经过测试过的程序,i是在private中定义的procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if Column.Index=i then DBGrid1.Canvas.Brush.Color:=clRed else DBGrid1.Canvas.Brush.Color:=clWhite; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);end;procedure TForm1.DBGrid1TitleClick(Column: TColumn);begin i:=Column.Index; DBGrid1.Refresh;end; 程序打包请教 带cst一类的控件是哪个包里面的? 怎么让MDI子窗体一开始就消失啊? 怎么在DBGrid里面输入的时候进行模糊查询? 窗体释放问题 Query返不回结果的问题。 寻求适合教育网上国外站点的代理服务器,速度快些的,谢谢! 今天信箱里发现了一封关于软件版权登记的信,大家做软件都是为了提高自己,玩玩而已,非正规商业软件根本就不用这么做吧? 报Too many open tables table:~~~~~ 是怎么回事,为什么会出现这种错误? 关于Delphi类数据成员的讨论!!! 有用Delphi搞dicom编程的朋友,这里有dicom中文资料下载了。。 求助~!
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Index=i then
DBGrid1.Canvas.Brush.Color:=clRed
else
DBGrid1.Canvas.Brush.Color:=clWhite;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
i:=Column.Index;
DBGrid1.Refresh;
end;