@Skyron: das mit dem namen ist nicht so ein problem, auf deine art und weise kann man das so lösen
Delphi-Quellcode:
TMyPanel = class(TPanel)
private
FOnResize: TNotifyEvent;
procedure FOnResizeProc(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
published
property OnResize read FOnResize write FOnResize;
end;
implementation
constructor TMyPanel.Create(AOwner: TComponent);
begin
inherited;
inherited OnResize := FOnResizeProc;
end;
procedure TMyPanel.FOnResizeProc(Sender: TObject);
begin
if Assigned(FOnResize) then FOnResize(Self);
//do something you want....
end;
man überschreibt im prinzip das orginale "OnResize" und weißt dem orginalen OnResize mit inherited die procedure zu