如何去掉TDBgrid右邊的滾動移動條，謝謝

參考: http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=12604

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;

或參考 Justmade 大大的這篇大作, 如果不想用做成元件的方式的話. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=33755 --- 歡迎光臨 KTop 研究院 發表人 -