Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: zur laufzeit erstellte Items löschen und Name zuweisen
29. Okt 2009, 18:50
Und zum 2. Problem: Du könntest die Klasse TImage ja um ein Feld erweitern. Mal aus dem Kopf:
Delphi-Quellcode:
type
TItemKind = (ikBanana, ikBomb, ikHeart);
TImage = class(ExtCtrls.TImage)
private
FItemKind: TItemKind;
public
property ItemKind: TItemKind read FItemKind write FItemKind;
end;
TForm1 = class(TForm)
...
Nun solltest Du nach dem Erzeugen des TImage die Eigenschaft ItemKind setzen und auswerten können.
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|