Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by David Martens,
15. Feb 2011
Kurz: Ja.
Lang:
Genau, In unit1 habe ich ein eigenes Event angelegt.
Das kannst du auch selbst sehen, wenn du dich mal die Klassen "herunterhangelst" <strg> und click auf die Grundklasse eine Komponente z.B: TButton, da stehen dann irgendwann ganz viele solcher Events.
2.
nicht ganz.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by David Martens,
15. Feb 2011
Jetzt verstehe ich was du willst.
Hier wie ich es machen würde:
unit1
TMyFrame = class(TFrame)
FOnDestroy : NotifyEvent;
property
OnDestroy : NotifyEvent read FOnDestroy write FOnDestroy;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by David Martens,
14. Feb 2011
Das war schon nicht ganz falsch, aber versuche mal nach dem self.free; das hier:
for i := 0 to TComponent(self.Owner).ComponentCount -1 do
if TComponent(self.Owner).Components is TYourFrame then
TYourFrame(TComponent(self.Owner).Components).Repaint;
Gruß David