名前
題名
▼ たてぐやさん > ▼ 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.
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link