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