Neue TPanel-Klasse

[Skiron]

Wenn ich dein Problem richtig verstanden habe, dann ist das folgendes:

du hast 'ne klasse, abbgeleitet von TPanel
Du selbst möchtest das OnResize verwenden, d.h. in der Klasse drinnen. Trotzdem sollte es dem User möglich sein, sein OnResize zu verwenden.
Das Eigentliche Problem ist dann halt ein Namenproblem, z.B. das Resize-Event des benutzers könnte dann OnNewResize heißen, dann könntest du folgendes machen:

Delphi-Quellcode:

type
  TMyPanel = class(TPanel)
  protected
    FOnNewResize: TNotifyEvent;
    property OnResize;
    procedure InternResize(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property OnNewResize read FOnNewResize write FOnNewResize;
  end;

implementation

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited;
  OnResize := InternResize;
end;

procedure TMyPanel.InternResize(Sender: TObject);
begin
  if Assigned(OnNewResize) then
    FOnNewResize(Sender);
end;

hab aber keine garantie, dass alles funzt, müsst aber ein lösungsansatz sein...


[Edit] Zu langsam.... [/Edit]