OnKlick auf dynamisch erzeugte Objekte

[roland9999]

Ich gehe jetzt folgendermaßen vor

ObjectList erzeugen

Delphi-Quellcode:

 
if not (assigned(objectlist)) then
  objectList := TObjectList.create;

dynamisch erstellte Objekte werden eingetragen. Die Anzahl der zu erzeugenden Objekte ist von der Anzahl der Datensätze anhängig. Somit steht das "create" in einer while-Schleife mit "not eof".

Delphi-Quellcode:

   
JVCaptionPanel1:=tJvCaptionPanel.Create(self);
JVCaptionPanel1.parent:=f_hauptform.ts_karte;
jvcaptionPanel1.OnClick := myonklick;
ObjectList.add(JvCaptionPanel1);

Zugriff auf den Inhalt mache ich mit

Delphi-Quellcode:

procedure tf_hauptform.myonklick(sender: TObject);
begin
 label5.Caption := (Sender as TJVCaptionPanel).Name;
end;

Das Löschen und Freigeben mach ich so:

Delphi-Quellcode:

objectlist.Delete(0);
objectlist.Free;

Die Objekte werden augescheinlich entfernt.
Möchte ich aber jetzt die Objekte neu erzeugen, geht das nicht.

Hat jemand eine Idee?

LG
Roland