Rapaic Rajko Bgd
Član broj: 4105 Poruke: 810 *.beg.sezampro.yu
|
Ok, nije mi jasno zasto ti treba staticni VertScroll, ali pogledao sam kako to radi u VCL-u, i - resio tvoj problem. Evo ti kompletan kod komponenta koji sam nazvao TDBGridVertScroll (ti ga nazovi kako hoces, jasno). Sledi kod (koji naravno radi, probao sam ga):
unit DBGridVertScroll;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids;
type
TDBGridVertScroll = class(TDBGrid)
private
{ Private declarations }
protected
procedure Paint;override;
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure TDBGridVertScroll.Paint;
begin
inherited Paint;
ShowScrollBar(Handle,SB_VERT,true);
end;
procedure Register;
begin
RegisterComponents('Samples', [TDBGridVertScroll]);
end;
end.
|