[Komp. Entwicklung] onResize bei abgeleiteter TImage K.

[sCrAPt]

HiHo

Ich hab eine Komponente geschrieben die von TImage abgeleitet ist. Allerdings braucht sie noch ein internes onResize-Ereigniss. Ich hab deshalb auch in den Private (soll ja intern sein) folgendes eingefügt:

Delphi-Quellcode:

procedure TVerHorLabelResize(Sender: TObject);
property onResize;

Und mein Createkonstruktor (oder wie nennt man das?) sieht so aus:

Delphi-Quellcode:

constructor TVerHorLabel.Create(AOwner: TComponent);
begin
  inherited;
  OnResize := VerHorLabelResize(self);
end;

Leider kommt dann beim Debuggen ein

Debuggererror:

[Fehler] VerHorLabel.pas(56): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Wo liegt der Fehler und wie behebe ich ihn?

[edit=sakura] Titel einfach zuuuuuu lang Mfg, sakura[/edit]

[sCrAPt]

Obbschtkuche hat mir geholfen.
Lösung:

Delphi-Quellcode:

procedure TVerHorLabel.Resize(Sender: TObject);
begin
  irgendwas;
end;

constructor TVerHorLabel.Create(AOwner: TComponent);
begin                      
  inherited;
  OnResize := Resize;
end;

[sakura]

Die Lösung finde ich persönlich nicht gelungen. Eher solch einen Ansatz:

Delphi-Quellcode:

type
  TImage1 = class(TImage)
  private
  protected
    procedure Resize; override;
  public
  published
  end;

{...}

procedure TImage1.Resize;
begin
  inherited Resize;
  // Dein Code fürs Resize
end;

......

[sCrAPt]

Japp, das ist schöner. Mach ich auch gleich

Thx sakura

[sakura]

Zitat von sCrAPt:

Japp, das ist schöner. Mach ich auch gleich

Wenn es denn geht, und das sollte es dann bleibt das OnResize Event immer noch zur Veröffentlichung im OI erhalten

......

[sCrAPt]

Nicht wenn ich es in Private tu

[SirThornberry]

doch, auch wenn tu es in Privte tust, oder meinst du wenn du das event dort hinn verschiebst? Ich überschreib in aller Regel SetBounds aber das kommt so ziemlich aufs gleiche raus nur das ich noch mitbekomme wenn die Position sich ändert.

[sCrAPt]

Wenn ich das Event in Private tu taucht es nicht im OI auf. TImage hat von Haus aus kein OnResize...

[sakura]

Zitat von sCrAPt:

Nicht wenn ich es in Private tu

Ist aber ein unsauberer Programmiertil Egal, Hauptsache die Lösung geht

......

[sCrAPt]

Zitat von sakura:

Ist aber ein unsauberer Programmiertil Egal, Hauptsache die Lösung geht

Warum sollte ich denn noch ein onResize zur Komponente hinzufügen (TImage hat kein onResize-Event) wenn es doch garnicht benötigt wird? Dadurch wirds für mich viel Übersichtlicher... und Weniger ist manchmal Mehr