Thema: Delphi Neue TPanel-Klasse

Einzelnen Beitrag anzeigen

Skiron

Registriert seit: 14. Dez 2003
153 Beiträge
 
#4

Re: Neue TPanel-Klasse

  Alt 29. Mai 2004, 20:59
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]
Mann zu Frau:
Zieh dich aus, wir müssen reden!
  Mit Zitat antworten Zitat