DBGrid - Event für Spaltenbreite ändern ?!?

[lorrey]

Hallo alle zusammen ?!?

Wie bekomme ich mit, wenn in einem DBGrid die Spaltenbreite geändert wird... ?
Der DBGrid selbst hat leider kein Event dafür - gibt es vielleicht eine Message die ich "einfangen" kann ?!?

Vielen Dank!

Gruss
lorrey

[Orakel-von-Delphi]

Man muss nur durch ein Cast den Zugriff auf den protected Member FGridState erzwingen:

Code:

type
  TGridStateGrid = class(TStringGrid);

...

procedure TtheForm.theDBGridMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if TGridStateGrid(theDBGrid).FGridState = gsColSizing then 
     ShowMessage('Sizing done !');
end;

Dieser wird nämlich nur beim Ändern der Spaltenbreite gesetzt (vgl. Unit Grids u.ä.).

[lorrey]

... funktioniert super!

Vielen Dank!

Jetzt weis ich endlich, wofür ein "Orakel" gut ist ... :thumb: