OnKlick auf dynamisch erzeugte Objekte

[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