Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Komponente um einen zusätzlichen Wert erweitern.


20:30 - Sa 14.07.12 10:31
Titel: Komponente um einen zusätzlichen Wert erweitern.
Ich möchte eine Komponente um einen Wert erweitern.

Sowas wie: Image1.MeinWert (In meinem Fall ist dieser Wert ein einfacher Integer)


jaenicke - Sa 14.07.12 10:37

Das ist schön. Hast du auch eine Frage dazu? :gruebel:

Das Prinzip ist im Menü Komponente auf Neue Komponente zu gehen, die Basisklasse auszuwählen und die neue erzeugen zu lassen. (Du kannst den Quelltext natürlich auch manuell tippen.)

In dieser neuen Komponente kannst du dann die neue property unter published hinzufügen. (Und die Komponente kannst du dann wenn gewünscht installieren.)


Andreas L. - Sa 14.07.12 10:47

So könnte der Code der abgeleiteten Komponente aussehen:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
type
  TMyImage = class(TImage)
  private
    FMyValue: Integer;
  published
    property MyValue: Integer read FMyValue write FMyValue;
  end;


Anfänger Tutorials:
http://www.delphi-treff.de/tutorials/vcl/komponenten-entwicklen/objekthierarchie/
http://de.wikibooks.org/wiki/Programmierkurs:_Delphi:_Komponentenentwicklung
http://pcnews.at/d/_pdf/n480090.pdf

Weiterführende Infos:
http://wiki.delphigl.com/index.php/Tutorial_Komponentenentwicklung