Mega Code Archive

 

Categories / Delphi / VCL

 

Dbgridden diket scroolbar ın kaldırılması [component kodu]

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.