Ами можеш да ги изкараш да са публични. Дефинирай си един клас наследник на TDBGrid:

type

  TMyCustomGrid = class(TDBGrid)

  public

    function CellRect(ACol, ARow: Longint): TRect;

    property Col;

    property Row;

  end;



{ TMyCustomGrid }



function TMyCustomGrid.CellRect(ACol, ARow: Integer): TRect;

begin

  Result := inherited CellRect(ACol, ARow);

end;

procedure TForm1.Button1Click(Sender: TObject);

var col, row: Integer;

begin

  col := TMyCustomGrid(DBGrid1).Col;

  row := TMyCustomGrid(DBGrid1).Row;

  ShowMessage(IntToStr(TMyCustomGrid(DBGrid1).CellRect(col, row).Top));

end;

Съдържаниет е скрито
Влезте за да го видите