OnKlick auf dynamisch erzeugte Objekte

[himitsu]

Und jetzt rate mal, wofür wohl der Parameter Sender da ist.

[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

[mkinzler]

Du hast eigentlich nur das 1. Objekt aus der List entfernt und die Liste dann Freigegeben. Ohne Liste kannst du natürlich nichts mehr Anfügen.

[Bummi]

bisschen wenig Code für eine Ausage

wenn Du sowas machst
if not (assigned(objectlist)) then musst Du auch

Delphi-Quellcode:

FreeAndNil(objectlist);
//statt objectlist.Free;

verwenden.
Das Freigeben der Objekte kannst Du der Objektliste überlassen.

[roland9999]

Ich frage doch ab ob Objectlist nicht vorhanden ist. Ist Objectlist nicht vorhanden wird diese erzeugt.

[DeddyH]

Nach einem Free ist die Instanz zwar freigegeben, aber nicht nil, so dass eine diesbezügliche Abfrage nicht hilft.

[roland9999]

Zitat:

FreeAndNil(objectlist);

ich habe es entsprechend geändert.
Aber geändert hat sich nichts.

Das ist der Vorgang zum löschen

Delphi-Quellcode:

procedure Tf_hauptform.Button2Click(Sender: TObject);
var i : integer;
begin
 for I := objectlist.Count to ObjectList.Count - 1 do
  begin
   objectlist.Delete(i);
  end;
 FreeAndNil(objectlist); 
end;

Roland

[DeddyH]

Du musst die Objekte nicht händisch löschen, das macht TObjectList ganz automatisch. Und wenn deren OwnsObjects-Eigenschaft true ist (Voreinstellung), dann werden die enthaltenen Objekte dabei auch gleich freigegeben.

[roland9999]

Delphi-Quellcode:

procedure Tf_hauptform.Button2Click(Sender: TObject);
var i : integer;
    temp : tcomponent;
begin
 for i:=objectlist.Count -1 downto 0 do
  begin
   Temp:=Components[i];
   if Temp is TJVCaptionPanel then
    Temp.Free;
  end;

 FreeAndNil(objectlist);
end;

Eine andere Variante.
Trotzdem kann ich die Panels nicht wieder neu erzeugen.
Vielleicht kann mit jemand einen Beispielcode liefern der mir da weiter helfen kann.

Gruß

[Bummi]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
 b:TButton;
begin
  b:=TButton.Create(self);
  b.Free;
  if Assigned(b) then Showmessage('Hoppla');
end;