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*
