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. :stupid:

[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

Delphi-Quellcode:

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;

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

[mkinzler]

Da du aber nur die Liste löschtst, aber die Instanzvariable nicht zurücksetzt, enthält diese die Adresse der nicht mehr existenten Liste - Assigned liefert wahr

[DeddyH]

Ja eben, das haben wir in #9 und #10 ja auch schon zu erklären versucht.

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

der letzte Post war (sorry) ziemlich sinnfrei , welche Components[i] ??
am besten lädst Du mal ein Zip mit dem Source hoch ...

[DeddyH]

Wieso wird die Objektliste durchlaufen und dann mit dem daraus ermittelten Index auf das Components-Array zugegriffen?

[roland9999]

Hier ist der Sourcecode

Gruß

[roland9999]

Also zur allgemeinen Informationen.

Ich suche, finde und probiere aus solange bis ich eine Lösung gefunden habe.

Momentan verstehe ich nicht wie ich es hinbekommen kann, meine dynamisch erstellten Panels zu entfernen und bei Bedarf wieder zu erstellen.
Der Bedarf ist dann da, wenn in den Kontakten ein neuer Datensatz hinzugefügt, geändert oder gelöscht wurde.

LG

Roland

[Sir Rufo]

Und was ist so schwierig daran, das umzusetzen, was dir hier geschrieben wird?

Delphi-Quellcode:

var
  ObjLst : TObjectList;

// Erzeugen der Panels
if not Assigned( ObjLst ) then
  ObjLst := TObjectList.Create;

while ObjLst.Count < 10 do
  begin
    TmpPnl := TPanel.Create( nil );
    ObjLst.Add( TmpPnl );
    TmpPnl.Parent := Self; // nur den Parent auf das aktuelle Formular setzen
    // weitere Properties setzen
  end;

// löschen der Objekte in der Liste und entsorgen der Liste selber
FreeAndNil( ObjLst );

[Bummi]

verdreht

Delphi-Quellcode:

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

Hier bist Du nach dem ersten Aufruf EOF

Delphi-Quellcode:

 with f_dm.q_kontakt_select do
  begin
   open;
   while not eof do

ein (beim ersten Aufruf unnötiges First) könnte helfen


Der Fehler in Button2 wurde hinreichend besprochen

[DeddyH]

Zitat:

Delphi-Quellcode:

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

:?: Da fehlt wohl ein not, es macht ja keinen Sinn, die Liste nur dann zu erzeugen, wenn sie bereits existiert.

[roland9999]

Vielen Dank für euere Geduld und Hilfe.

Das Problem ist gelöst.

Das Beispiel von Sir Rufo hat mir weiter geholfen.

LG