Anzahl bereits erstellter Komponenten herausfinden

[DeddyH]

Dann setz doch mal das Testform.Show vor das letzte "end;".

[Metallicwar]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
  zaehler: Integer;
begin
    zaehler:= 0;
    TestForm:=TForm.Create(Self);
    TestForm.ClientHeight:=1200;
    TestForm.ClientWidth:=700;
for i := 0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
  if zaehler <= 10 then
    begin
      TestFrame:=TFrame4.Create(Self);
      TestFrame.Name:=''+(CheckListBox1.Items[i]);
      TestFrame.Top:= Random(1200);
      TestFrame.Parent:=TestForm;
      zaehler:= zaehler + 1;
      TestFrame.Show;
    end
    else
    begin
      ShowMessage('Zähler ist 10');
    end;
    TestForm.Show;
end;
end.

Stimmt fast^^
er springt, auch wenn es 10 Frames sind, in die Zeile TestForm.Show.
*PEINLICH*

[DeddyH]

Er soll das Formular nur anzeigen, wenn es 10 Frames sind?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
  zaehler: Integer;
begin
  zaehler:= 0;
  TestForm:=TForm.Create(Self);
  TestForm.ClientHeight:=1200;
  TestForm.ClientWidth:=700;
  for i := 0 to CheckListBox1.Items.Count-1 do
    if CheckListBox1.Checked[i] then
      if zaehler < 10 then
        begin
          TestFrame:=TFrame4.Create(Self);
          TestFrame.Name:=''+(CheckListBox1.Items[i]);
          TestFrame.Top:= Random(1200);
          TestFrame.Parent:=TestForm;
          zaehler:= zaehler + 1;
          TestFrame.Show;
        end
      else
        begin
          ShowMessage('Zähler ist 10');
          TestForm.Show;
        end;        
end;

[Metallicwar]

Zitat:

Er soll das Formular nur anzeigen, wenn es 10 Frames sind?

Das momentan ist nur ein Test. Eigentliches Ziel: Sobald 10 Frames auf dem Formular erstellt worden sind, soll das Formular ausgedruckt werden und wieder geleert werden, damit die restlichen (Frames) falls noch welche übrig sind erstellt werden können, falls es wieder 10 sind, erneut drucken und leeren, usw....