OnBeforeResize bzw. OnAfterResize bezogn auf ein TPanel

[hhluemmel]

Hier mal der eine Code-Auszug ... wo bzw. wie müsste SetBounds überschreiben?

Danke

Delphi-Quellcode:

  TTestPanel = class(TPanel)
  private
    { Private-Deklarationen }
    Procedure OnBeforeResize (var msg: TMessage); message WM_ENTERSIZEMOVE;
    Procedure OnAfterResize (var msg: TMessage); message WM_EXITSIZEMOVE;
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published-Deklarationen }
  end;


{ TTestPanel }

constructor TTestPanel.Create(AOwner: TComponent);
begin
  inherited Create (AOwner);
end;

destructor TTestPanel.Destroy;
begin

  inherited;
end;

procedure TTestPanel.OnAfterResize(var msg: TMessage);
begin
 // hier die Anweisung nach dem Resize
end;

procedure TTestPanel.OnBeforeResize(var msg: TMessage);
begin
 // hier die Anweisung vor dem Resize
end;