DBGrid Kaydırma Çubukları

[Caylaq]

Selamlar,

Dbgrid kaydırma çubuklarını ( sağdaki ve alttaki ) nasıl görünmez hale getirebiliriz?

Tüm menüyü kurcaladım ama bir türlü göremedim

[powertrk]

Merhabalar,
Biraz geliştirerek daha kapsamlı bir bileşen haline getirebilirsin. Sorununu kısmende olsa çözecektir diye düşünüyorum.

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.

[Caylaq]

Değerli yorumun için Teşekkür ederim.

Aşağıdaki mesajı bir siteden aldım. Çok daha etkili ve kısa.



Kullanmak isteyen olursa buyursun

DBGrid'in Yatay (Horiz.yani aşağısındaki) ScrollBar gizlemek, Dikey (Vert.) göstermek için

TStringGrid( DBGrid1 ).ScrollBars := ssNone;


- DBGrid'in Yatay (Horiz.) ScrollBar göstermek, Dikey (Vert.) gizlemek için

TStringGrid( DBGrid1 ).ScrollBars := ssBoth;


- DBGrid'in her iki ScrollBar'ını da göstermek için

TStringGrid( DBGrid1 ).ScrollBars := ssHorizontal;