Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi neuer Komponente / Parent width (https://www.delphipraxis.net/26399-neuer-komponente-parent-width.html)

theomega 23. Jul 2004 10:35


neuer Komponente / Parent width
 
Hallo Leute,
ich versuche einen eigenen Komponenten zu erstellen, den ich von TPaintBox abgeleitet habe. In die Paintbox werden verschiedene Dinge gezeichnet, die meisten propertional zur Breite der Paintbox. Dazu sind recht komplexe Berechnungen nötig, die ich nicht bei jedem paint machen will sondern nur einmal. Jetzt muß ich aber die Brechnungsfunktion aufrufen, wenn sich width verändert hat.
Nur wie mach ich dass. Erst habe ich gedacht, ich overrite SetWidth, aber das geht nicht, weil er behauptet, das dies in der Parent-Klasse nicht enthalten ist (stimmt irgendwie auch, ist in der parent-klasse der parent-klasse der parent-klasse enthalten [TComponent]).

Weiß jemand wie ich das machen kann?

Grüße und Danke
TO

torud 23. Jul 2004 10:38

Re: neuer Komponente / Parent width
 
mach das doch einfach im OnResize-Ereignis der Paintbox!?

theomega 23. Jul 2004 10:40

Re: neuer Komponente / Parent width
 
und wie benutze ich das in meinem Komponenten?

torud 23. Jul 2004 10:51

Re: neuer Komponente / Parent width
 
hm, so weit ich weiss, müsstest Du dann Deiner Komponente einfach noch diese Propertie zuweisen

TStringlist 23. Jul 2004 14:13

Re: neuer Komponente / Parent width
 
SetWidth? Meinst du damit etwa eine (Set-)Property-Routine? Üblich ist das aber nicht, dass man die auch overrided. Eventuell, weil die normalerweise unter private deklariert und damit in irgendeiner nächsten Unit ohnehin nicht mehr bekannt sind?

Was du stattdessen aber overriden kannst, ist die Resize-Methode selbst. Die stammt von TControl ab und von der wird dann überhaupt erst immer dieser OnResize gepointete Eventhandler aufgerufen (falls definiert) ...also am Ende das 'inherited' nicht vergessen.

Das wäre wohl auch dann der richtige Weg, wenn du da eine eigene Komponente selbst wieder für die Palette draus entwickeln wolltest.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz