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

かなっち  2005-04-26 11:04:46  No: 14479  IP: 192.*.*.*

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

編集 削除
Mr.XRAY  URL  2005-04-30 00:14:12  No: 14480  IP: 192.*.*.*

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 00:17:10  No: 14481  IP: 192.*.*.*

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

type
    MyDBGrid = class(TDBGrid);

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

編集 削除