2012年4月19日
DBGrid 单双行显示不同颜色
摘要： procedure TfrmMain.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);var aIndex:Integer; aDBGrid:TDBGrid;begin if Sender is TDBGrid then begin aDBGrid:=TDBGrid(Sender); if State=[] then with aDBGrid do begin if Assigned(DataSource) an 阅读全文
posted @ 2012-04-19 15:33 yoogoo 阅读(277) 评论(0) 推荐(0) 编辑
Delphi 的 inherited
摘要： // inherited 就是调用父类方法的一个特殊命令; 举例: 阅读全文
posted @ 2012-04-19 08:51 yoogoo 阅读(263) 评论(0) 推荐(0) 编辑