怎样才能使DBImage有Scrollbar

Question

将DBImage放在一个TScrollBox中不就可以了。

Answer 1

不行，是不是要设置什么属性，我已经把Scrollbox的autoscroll设置为true了

Answer 2

//写一个组件，从TDBImage继承下来，并覆盖CreatParams方法unit DBImage;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls, DBCtrls;type
  TMyDBImage = class(TDBImage)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('MyDBImage', [TMyDBImage]);
end;{ TDBImage }//覆盖CreateParams函数
procedure TMyDBImage.CreateParams(var Params: TCreateParams);
begin
  inherited;
  with Params do
  begin
    Style := Style or WS_VSCROLL or WS_HSCROLL;
  end;
end;end.