Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.544 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: zur laufzeit erstellte Items löschen und Name zuweisen

  Alt 29. Okt 2009, 17: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
  Mit Zitat antworten Zitat