Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Noch mal Klassen ableiten
Stauch - Do 08.01.04 11:32
Titel: Noch mal Klassen ableiten
Ich habe folgende Klasse abgeleitet
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| type
TAmpelLicht = class(TShape)
constructor create(AOwner: TComponent;pfarbe: TColor;x,y:integer);
procedure schalten;
private farbe: TColor;
an : boolean;
end; |
Ich scheitere daran, die Prozedur
Schalten zum Laufen zu kriegen.
(dabei soll einfach die Farbe des Shapes gewechselt werden von silber auf farbe)
Wer weiss Rat?
C.
Motzi - Do 08.01.04 11:51
Inwiefern "scheitert" es? Kriegst du eine Exception, oder schreit schon der Compiler? Welche Fehlermeldung kriegst du denn?
Stauch - Do 08.01.04 12:06
Ich scheitere daran, auf die neu hinzugefügten Eigenschaften zuzugreifen, d.h. ich brauche eine Anweisung um
Shapexxx.brush.color:=farbe zu setzen
Wenn ich eine Instanz von TAmpellicht erzeuge, kann ich auf die neuen eigenschaften zugreifen:
Delphi-Quelltext
1:
2:
3:
| var ampellicht : TAmpelicht;
...
ampellicht.brush.color:=ampellicht.farbe |
aber ich möchte ja eine allgemeine Pozedur
also sowas wie TAmpellicht.brush.color:= ... aber da kriege ich 'ne Fehlermeldung
Motzi - Do 08.01.04 12:26
wie wärs nur mit:
brush.color := ...; :roll:
Manchmal kann es so einfach sein..! ;)
Stauch - Do 08.01.04 13:45
@Motzi
und ich probiere sonstwas ... grummel ... und dabei ists so einfach
Danke für den Tip
C.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!