Scrollbox - Balken vergössern sich nicht

[Jens Schumann]

Hallo,
ich habe mak in den VCL Source geforscht und folgende adhoc Lösung gefunden.

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
    procedure WMMOVE(var MSG : TWMMove); message WM_MOVE;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TForm2.WMMOVE(var MSG: TWMMove);
begin
  inherited;
  If Parent is TScrollbox then
    begin
    TScrollBox(Parent).DisableAutoRange;
    TScrollBox(Parent).EnableAutoRange;
    end;
end;

end.