OnKlick auf dynamisch erzeugte Objekte

[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