請問各位前輩: 要怎樣將 grid 右邊的 ScrollBar 強制不要顯示出來?? Hank

carter6您好:      設定ScrollBar的樣式即可..   有ssHorizontal或ssBoth都可以    順心 <>～我也是在學習的階段,所以請您多多見諒與指教～ 發表人 -

不好意思我用的是 TDBGrid 我找不到ScrollBar 有別的方式嗎??

http://bdn.borland.com/article/0,1410,15874,00.html

unit Newgrid;    interface    uses
  WinTypes, WinProcs, Classes, DBGrids;    type
  TNoVertScrollDBGrid = class(TDBGrid)
  protected
    procedure Paint; override;
  end;    procedure Register;    implementation    procedure TNoVertScrollDBGrid.Paint;
begin
  SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
  inherited Paint;
end;    procedure Register;
begin
  RegisterComponents('Data Controls', [TNoVertScrollDBGrid]);
end;    end.    

--- 奉行寶蘭主義 服從天使領導 保衛各版安全 完成KTop大業

不好意思我還沒學那麼深 那要怎麼加入我的程式中呢??

1.存成 NewGrid.pas 檔 2.Component -> Install New Component 3.然後在 'Data Controls' 頁籤中就會看到一個新的元件 名字是 TNoVertScrollDBGrid 4.使用它. --- 奉行寶蘭主義 服從天使領導 保衛各版安全 完成KTop大業 發表人 - hagar 於 2003/07/07 08:20:02

較簡單不用登錄元件的方法 : 在你的 Form 加入下列紅色部份。

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids;    type
  TDBGrid = Class(DBGrids.TDBGrid)
  protected
    procedure Paint; override;
  end;
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TDBGrid.Paint;
begin
  SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
  inherited;
end;    end.

不過若你經常這樣用還是登錄一個元件較好