Thema: Delphi Scrollbar im TDBGrid

Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Scrollbar im TDBGrid

  Alt 14. Okt 2006, 16:12
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
  Mit Zitat antworten Zitat