|
▼ snail3さん
済みません。ご指摘のコードでいいようです。下記をDBGridEx.pasとして保
存し、コンポーネントのインストールでできました。ありがとうございました。
unit DBGridEx;
interface
uses
Windows, Classes, Grids, DBGrids;
type
TDBGridEx = class(TDBGrid)
private
FSaveRow : Integer;
FSaveCol : Integer;
protected
public
procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);override;
published
property SaveRow : Integer read FSaveRow;
property SaveCol : Integer read FSaveCol;
end;
procedure Register;
implementation
procedure TDBGridEx.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);
begin
FSaveRow := ARow;
FSaveCol := ACol;
inherited;
end;
procedure Register;
begin
RegisterComponents('Component', [TDBGridEx]);
end;
end.
|