Einzelnen Beitrag anzeigen

Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#5

AW: Anzahl bereits erstellter Komponenten herausfinden

  Alt 1. Sep 2010, 14:03
puuh^^
Das ist mein momentaner Code:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
begin
    TestForm:=TForm.Create(Self);
    TestForm.ClientHeight:=1200;
    TestForm.ClientWidth:=700;
for i := 0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
    begin
      TestFrame:=TFrame4.Create(Self);
      TestFrame.Name:=''+(CheckListBox1.Items[i]);
      TestFrame.Top:= Random(1200);
      TestFrame.Parent:=TestForm;
      TestFrame.Show;
      TestForm.Show;
      //ShowMessage(checklistbox1.Items[i]);
    end;
end;
So würd ich meinen in den geposteten einbinden:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  i, FormCount: Integer;
  iItems: Integer;
begin
   for i := 0 to (TestForm.ComponentCount - 1) do
   begin
     if (TestForm.Components[i].ClassName = 'TestFrame') then
     begin
        Inc(FormCount) ;
     end;
   end;

   if (FormCount < 10) then
   begin
      TestFrame:=TFrame4.Create(Self);
      TestFrame.Name:=''+(CheckListBox1.Items[i]);
      TestFrame.Top:= Random(1200);
      TestFrame.Parent:=TestForm;
      TestFrame.Show;
   end
   else
   begin
      Formular drucken
      Formular leeren
      Formular neu füllen
   end;
end;
aber wo bringe ich den Code unter???:
Delphi-Quellcode:
begin
    TestForm:=TForm.Create(Self);
    TestForm.ClientHeight:=1200;
    TestForm.ClientWidth:=700;
for i := 0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then

Geändert von mkinzler ( 1. Sep 2010 um 14:09 Uhr) Grund: Code-Tags durch Delphi-Tags ersetzt
  Mit Zitat antworten Zitat