DBGridの横スクロールバーの非表示について

かなっち 2005-04-26 20:04:46 No: 14479

はじめまして。かなっちと申します。
DBグリッドの横スクロールバーを非表示にしたいのですが、
やり方がよくわかりません。よろしくお願いいたします。

Mr.XRAY URL 2005-04-30 09:14:12 No: 14480

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;

Mr.XRAY URL 2005-04-30 09:17:10 No: 14481

以下でも動作します．publishedにしなくても，同じユニット内ですので
protectedにアクセスできます．

type
MyDBGrid = class(TDBGrid);

procedure TForm1.Button1Click(Sender: TObject);
begin
MyDBGrid(DBGrid1).ScrollBars:=ssVertical;
end;