JvPanel zur Laufzeit skalieren

[Bummi]

OK, jetzt habe ich verstanden wo es hängt ....

Delphi-Quellcode:

  TForm1 = class(TForm)
    JvPanel1: TJvPanel;
    procedure JvPanel1ChangedHeight(Sender: TObject; ChangedSize: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TJvPanel }

procedure TJvPanel.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  inherited;
  if Assigned(OnChangedHeight) then OnChangedHeight(Self,AHeight);

end;

procedure TForm1.JvPanel1ChangedHeight(Sender: TObject; ChangedSize: Integer);
begin
  Caption := (IntToStr(ChangedSize));
end;