Scrollbar im TDBGrid

[MarkusB]

Moin, moin!

Wie kann ich feststellen, ob in einem DBGrid die horizontale Scrollbar verschoben worden ist? Der TDBGrid kennt die Methode OnTopLeftChanged leider nicht.

DF cross post
DSDT cross post

Viele Grüße
Markus

[marabu]

Hallo Markus,

wenn du keine bessere Möglichkeit findest, dann nimm solange das hier:

Delphi-Quellcode:

type
  TDBGridCracker = class(TDBGrid);

function FirstColumn(cg: TCustomDbGrid): TColumn;
var
  iData: Integer;
begin
  with TDBGridCracker(cg) do
  begin
    iData := RawToDataColumn(LeftCol);
    if iData < 0
      then Result := nil
      else Result := Columns[iData];
  end;
end;

Grüße vom marabu