DBGridの横スクロールバーの非表示について (ID:14480)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 typeの宣言は，interface部でもimplementation部のどちらでも構いません． 以下の様にすると，ボタン1クリックで横スクロールバーが非表示となります．MyDBGridの名前は任意です． 動作確認は WindowsXP(SP2) + Delphi5(UP1)です． type MyDBGrid = class(TDBGrid) published property ScrollBars; end; // DBGrid1は対象のTDBGridの名前に変更します． procedure TForm1.Button1Click(Sender: TObject); begin MyDBGrid(DBGrid1).ScrollBars:=ssVertical; end;