بروز شدن جدول بدون حرکت به رکورد بعدی دی بی گردید

[khoshblagh]

با سلام خدمت دوستان
میخواهم در یک دی بی گرید در یک سل که دارای دکمه کامبو میباشد بعد از انتخاب بانک متصل به این گرید بروزآوری شود. در حالت معمول بعد از حرکت به رکورد بعدی بانک بروز میشود . ولی میخواهم به محض انتخاب مورد نظر بدون حرکت به رکورد بعدی بانک بروزآوری گردد. متشکرم.

[khoshblagh]

کد زیر را در سایت about در این رابطه پیدا کردم. ولی طرز قراردادن این کد در یونیت نمیدانم.
ظاهرا باید مثل تابع باشد باید فراخوانی شود . از طرفی کلاس بکار برده را چطور استفاده نمایم؟.


//THackDBGrid = class(TDBGrid)

//refresh datagrid data - preserve row position
procedure Refresh_PreservePosition;
var
rowDelta: Integer;
row: integer;
recNo: integer;
ds : TDataSet;
begin
ds := THackDBGrid(DBGrid1).DataSource.DataSet;

rowDelta := -1 + THackDBGrid(DBGrid1).Row;
row := ds.RecNo;

ds.Refresh;

with ds do
begin
DisableControls;
RecNo := row;
MoveBy(-rowDelta) ;
MoveBy(rowDelta) ;
EnableControls;
end;
end