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.ä.).