|
Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
FreePascal / Lazarus
|
Re: Wie schreibe ich eine Funktion?
22. Nov 2008, 20:40
Hallo, psd-sign.
TheShape: TComponentname;
Was du hier deklarierst, ist nur der Name einer Komponente - nichts anderes als ein String. Der Name hilft dir hier aber nicht weiter, sondern du brauchst das Objekt selbst - vom Typ TShape.
Deshalb muss die Deklaration so lauten:
TheShape: TShape
Wenn du jetzt noch die Zeile
TheShape:=TShape(Sender).Name;
in
TheShape:=TShape(Sender);
umänderst, müsste es eigentlich klappen!
|