关于DBGrid的一个问题? 我想问如何让DBGrid根据数据源的状态(浏览、插入、修改等)在最左侧的indicator部分显示不同的图标? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 代码(可以做控件用哦):unit DBPicGrd;interfaceuses DBGrids, DB, DBTables, Grids, WinTypes, Classes, Graphics;type TDBPicGrid = class(TDBGrid) protected procedure DrawDataCell(const Rect: TRect; Field: TField; State: TGridDrawState); override; public constructor Create(AOwner : TComponent); override; published property DefaultDrawing default False; end;procedure Register;implementationconstructor TDBPicGrid.Create(AOwner : TComponent);begin inherited Create(AOwner); DefaultDrawing := False;end;procedure TDBPicGrid.DrawDataCell(const Rect: TRect; Field: TField; State: TGridDrawState);var bmp : TBitmap;begin with Canvas do begin FillRect(Rect); if Field is TGraphicField then try bmp := TBitmap.Create; bmp.Assign(Field); Draw(Rect.Left, Rect.Top, bmp); finally bmp.Free; end else TextOut(Rect.Left, Rect.Top, Field.Text); end;end;procedure Register;begin RegisterComponents('Custom', [TDBPicGrid]);end;end. 我想DLL放在C盘里面,不想放在运行目录里,要怎么做呀? 数据集字符串形式怎么保存到TClientDataSet 作业上遇到了问题,请达人指点 算法求教! TObject如何进行保存和读取 关于FLASH控件的简单而又高分之问题!! vc deliphi中 建立的外部txt文件,如何超过一定条目进行清空 关于刷卡器的一个接口控件! 关于Delphi和 PB!进者有分 请三层高手与我讨论。 在程序中得到一个类的公开属性和方法 用Remote Data Module做数据模块时怎么捕捉连接到服务器的客户端数量?
unit DBPicGrd;interfaceuses
DBGrids, DB, DBTables, Grids, WinTypes, Classes, Graphics;type
TDBPicGrid = class(TDBGrid)
protected
procedure DrawDataCell(const Rect: TRect;
Field: TField; State: TGridDrawState); override;
public
constructor Create(AOwner : TComponent); override;
published
property DefaultDrawing default False;
end;procedure Register;implementationconstructor TDBPicGrid.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
DefaultDrawing := False;
end;procedure TDBPicGrid.DrawDataCell(const Rect: TRect; Field: TField;
State: TGridDrawState);
var
bmp : TBitmap;
begin
with Canvas do
begin
FillRect(Rect);
if Field is TGraphicField then
try
bmp := TBitmap.Create;
bmp.Assign(Field);
Draw(Rect.Left, Rect.Top, bmp);
finally
bmp.Free;
end
else
TextOut(Rect.Left, Rect.Top, Field.Text);
end;
end;procedure Register;
begin
RegisterComponents('Custom', [TDBPicGrid]);
end;end.