Hallo zusammen,
ich habe eine Klasse TMyImage von TImage abgeleitet.
Aus dieser Klasse TMyImage habe ich eine Komponente erstellt.
Ich füge nun die Komponente in ein Formular ein. Zunächst hat sie nun die Breite und Höhe 105, was wohl der Ausgangswert für die beiden Eigenschaften in der Basisklasse TImage ist.
Wenn ich jetzt Breite und Höhe meinethalben auf 400*400 ändere, bleibt der weiß hinterlegte Zeichenbereich unverändert bei 105*105 und ich ziehe nur ein transparentes Rechteck auf.
Schaue ich nun zur Laufzeit in meiner Komponente auf die Werte von Width und Height, dan steht da tatsächlich nach wie vor 105 drin...
Auf die Werte, die laut
OI in Width und Height stehen, kann ich innerhalb der Klasse TMyImage nirgens zugreifen. Greife ich von außerhalb auf MyImage1.Width oder MyImage1.Height zu (MyImage1:TMyImage), sind die Werte wieder wie eingestellt, also wieder 400*400.
Das is jawohl der größte Käse, den Delphi mir je aufgetischt hat
Ich habe allerdings nicht allzuviel Ahnung von Vererbungstrara und hoffe, dass mir jemand weiterhelfen kann.
Die Komponente soll natürlich eine veränderbare Größe im Formular einnehmen können, und zwar inklusive Zeichenbereich. Wenn MyImage1.Width=400 ist, dann soll natürlich auch innerhalb des Objekt self.Width=400 sein.