Noch mal Klassen ableiten

Stauch · Beiträge: 140 Win 2000, Win XP D4

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.

_________________
Geht das? Und wenn ja, warum nicht?

Motzi · Verfasst: Do 08.01.04 11:51

Inwiefern "scheitert" es? Kriegst du eine Exception, oder schreit schon der Compiler? Welche Fehlermeldung kriegst du denn?

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

Stauch · Beiträge: 140 Win 2000, Win XP D4

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:

markieren

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

_________________
Geht das? Und wenn ja, warum nicht?

Motzi · Verfasst: Do 08.01.04 12:26

wie wärs nur mit:
brush.color := ...; :roll:

Manchmal kann es so einfach sein..!

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

Stauch · Beiträge: 140 Win 2000, Win XP D4

@Motzi
und ich probiere sonstwas ... grummel ... und dabei ists so einfach

Danke für den Tip

C.

_________________
Geht das? Und wenn ja, warum nicht?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme