掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
GridのRowCount変更をフックするには？ (ID：5340)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
SizeChangedをオーバーライドしてやればよろしいかと思います。 こんな感じ。 TMyGrid=class(TStringGrid) protected procedure SizeChanged(OldColCount, OldRowCount: Longint); override; end; としておいて、 procedure TMyGrid.SizeChanged(OldColCount, OldRowCount: Longint); begin ShowMessage('Old ColCount:' + IntToStr(OldColCount) + #13#10 + 'Old RowCount:' + IntToStr(OldRowCount) + #13#10 + 'Now ColCount:' + IntToStr(ColCount) + #13#10 + 'Now RowCount:' + IntToStr(RowCount) ); end; とすれば、 MyGrid1.RowCount := 10; とすると、 Old ColCount:5 Old RowCount:5 Now ColCount:5 Now RowCount:10 と表示されます(初期状態の場合)。 RowCount=10のとき、RowCount:=10としても、SizeChangedは呼ばれません。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.