DBGrid的问题。 TDBGrid(Sender).DataSource.DataSet.RecNo 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 type TForm1 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; Table1: TTable; procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure DataSource1DataChange(Sender: TObject; Field: TField); private { Private declarations } FBook: string; public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if TDBGrid(Sender).DataSource.DataSet.Book = FBook then with TDBGrid(Sender).Canvas do begin Font.Color := clRed; FillRect(Rect); TextOut(Rect.Left, Rect.Top, Column.Field.DisplayText); end;end;procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);begin FBook := TDataSource(Sender).DataSet.Book;end; 求Inno打包程序读取ini文件 请教一下如何在MIDAS中使用事务 大家好,DELPHI中的标准字体类型用什么表示? 使用BatchMove的batCopy创建一个新表的问题 好消息,进来有分。 请问delphi中如何动态的建立对象? 今天买了张Delphi7的企业版,感觉区别不大 。只是加了点组件 DELPHI中怎么操作EXCEL文档? 那位有SQL结构化查询语言方面的电子书籍?高分求购!!! 时间有2000问题,如何解决 大家帮我 我一个多月都没解决的问题,这个报表怎样做 谢谢 Listbox控件在生成应用程序后,在第一列出现一个框子,很难看?怎么把它去除?
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
private
{ Private declarations }
FBook: string;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if TDBGrid(Sender).DataSource.DataSet.Book = FBook then
with TDBGrid(Sender).Canvas do begin
Font.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Column.Field.DisplayText);
end;
end;procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
FBook := TDataSource(Sender).DataSet.Book;
end;