Dynamisch erzeugte Panels und Controls

[nahpets]

Hallo,

so in etwa könnte es gehen:

Delphi-Quellcode:

  
procedure TForm1.MyTopClick(Sender: TObject);
Var i : Integer;
begin
  If Sender is TJvSpinbutton then with Sender as TJvSpinbutton do begin
    for i := 0 To Parent.ControlCount - 1 do begin
      If Parent.Controls[i] Is TLabeledEdit then begin
        ShowMessage('Da ist er ja: ' + Parent.Controls[i].Name);
      end;
    end;
  end;
end;