OnBeforeResize bzw. OnAfterResize bezogn auf ein TPanel

[DGL-luke]

BeforeResize wirst du nicht bekommen. bzw. so müsste man es machen:

Delphi-Quellcode:

//in den public-Abschnitt deiner Deklaration
procedure SetBounds(AWidth, AHeight: Integer); override;  //hoffe das AWidth, AHeight passt

//implementieren:

procedure TTestPanel.SetBounds(AWidth, AHeight: Integer); override;
var Allowed: Boolean;
begin
Allowed := true;
DoBeforeResize(AWidth, AHeight, Allowed); //das gehört als virtuelle Methode rein, wenn du wi9llst, dass andere es anständig ableiten können
if Assigned(OnBeforeResize) then
  OnBeforeResize(Self, AWidth, AHeight, Allowed); //Allowed jeweils als var-Parameter

if Allowed then
  begin
    inherited;
    DoAfterResize;
    if Assigned(OnAfterResize) then
      OnAfterResize(self);
  end;
end;

Die "Do"-Methoden und die "On"-Events musst du natürlich auch noch entsprechend deklarieren/implementieren.

EDIT: Ich habs im Moment nicht so mit Typen...