[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;

...:cat:...

[sCrAPt]

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

Thx sakura :cat:

[sakura]

Zitat:

Zitat von sCrAPt

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

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

...:cat:...

[sCrAPt]

Nicht wenn ich es in Private tu :zwinker:

[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:

Zitat von sCrAPt

Nicht wenn ich es in Private tu :zwinker:

Ist aber ein unsauberer Programmiertil :zwinker: Egal, Hauptsache die Lösung geht ;)

...:cat:...

[sCrAPt]

Zitat:

Zitat von sakura

Ist aber ein unsauberer Programmiertil :zwinker: 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 :zwinker:

[obbschtkuche]

Zitat:

Zitat von sCrAPt

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

pfpff... und wenn ich es dir sage machst dus nicht :P

[sCrAPt]

ICQ-Logs:

17:04:17 obbschtkuche: procedure TVerHorLabel.Resize(Sender: TObject);
begin

end;

constructor TVerHorLabel.Create(AOwner: TComponent);
begin
inherited;
OnResize := Resize;
end;
17:04:22 obbschtkuche: so stimmts

:zwinker:

[obbschtkuche]

ICQ-Logs:

(17:00:15) obbschtkuche: aber so sollte man das nicht machen, weil der user immernoch OnResize überschreiben kann
(17:00:28) obbschtkuche: da dürfte es sowas wie procedure resize; geben

:roll:

[sCrAPt]

Das hast du aber eine Seite (beim maximierten Fenster) weiter oben geschrieben :zwinker:

Müssen wir jetzt noch weiter diskutieren? Wird leicht mehr als total OT