fehler bei timage.destroy

[Dani]

Was für einen Index speicherst du in HelpKeyword? Versuch mal nicht den Weg über Indizes zu gehen, speichere stattdessen den Zeiger auf das Objekt .

Du kannst auch einen neuen Typ von TImage ableiten, der so ein Feld besitzt:

Delphi-Quellcode:

type
 TLinkedImage = class(TImage)
  private
   FLinkedObj: TObject;
  published
   LinkedObj: TObject read FLinkedObj write FLinkedObj;
 end;

In LinkedObj kannst du dann den Zeiger auf ein beliebiges Objekt speichern:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TLinkedImage.Create(Self)
  begin;
   Bild.Parent := EinPanel;
   Bild.LinkedObj := Sender;
   {...}
  end;
end;

[edit=Luckie]Tags korrigiert. fg, Luckie[/edit]