OnKlick auf dynamisch erzeugte Objekte

[roland9999]

Hallo zusammen,
ich habe viel gelesen aber ich weiß immer noch nicht wie ich mein Problem lösen kann.

Es werden JVCaptionPanels dynamisch erzeugt. Die Anzahl ist von der Anzahl der vorhandenden Datensätze abhängig.

Zur Zeit sind es 4 Panels.

So erzeuge ich diese:

Delphi-Quellcode:

 with f_dm.q_kontakt_select do
  begin
   open;
   while not eof do
    begin
     JVCaptionPanel1:=tJvCaptionPanel.Create(self);
     JVCaptionPanel1.parent:=f_hauptform.ts_karte;
     jvcaptionPanel1.Name := 'nr_'+fieldbyname('kontakt_nr').AsString ;
     jvcaptionPanel1.Cursor := crHandPoint;
    
     jvcaptionPanel1.OnClick := myonklick;
    
     JVCaptionPanel1.Top:=x;
     JVCaptionPanel1.Left:=y;
     JVCaptionPanel1.width:=290;
     JVCaptionPanel1.height:=209;
     JVCaptionPanel1.CaptionPosition := dptop;
     JVCaptionPanel1.Caption:=fieldbyname('name').AsString;

     y := y + JVCaptionPanel1.width;
     w:= z-y;
     if w < JVCaptionPanel1.width then
      begin
       y := 10;
       x := x + 209;
      end;
     next;
    end;
   close;
  end;

Funktioniert auch soweit.

Nun habe ich folgende Procedure zum testen, geschrieben:

Delphi-Quellcode:

procedure tf_hauptform.myonklick(sender: TObject);
begin
  label5.Caption := jvcaptionpanel1.Caption;
end;

Funktioniert.
Da aber wohl der Zeiger auf dem letzten Panel liegt, wird entsprechend Caption aus dem letzten Panel in das Lebel geschrieben.

Wie bekomme ich es hin, dass er aus dem Panel was ich anklicke, den Wert aus Caption in das Label schreibt?

Für Tipps und Hilfe bedanki ich mich.

Gruß
Roland

[Dalai]

Wieso weist du der Variable JVCaptionPanel1 in der while-Schleife immer wieder eine neue Objekt-Instanz zu? Was passiert mit den vorher zugewiesenen Objektreferenzen? Tip: Speicherleck.

Das ist dann die Folge davon:

Zitat:

Da aber wohl der Zeiger auf dem letzten Panel liegt, wird entsprechend Caption aus dem letzten Panel in das Lebel geschrieben.

Da du offensichtlich eine Reihe von Objekten dynamisch erzeugen willst, brauchst du einen geeigneten Mechanismus zur Speicherung der Objektreferenzen. Ich benutze dafür dynamische Arrays, aber auch TList und TObjectList sind geeignet (und wahrscheinlich sogar komfortabler).

MfG Dalai

[roland9999]

Danke für die schnelle Antwort.

Ich werde es durchprobieren.

Gruß

Roland

[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.

[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;