Neue Frage, neues Thema
Und zwar....
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.
Meine Frage:
Wie kriege ich es hin, dass die Frames individuelle Werte erhalten? Momentan hab ich einfach Zufallswerte zugewiesen.
Ziel: Die ersten 5 Frames sollen untereinander angeordnet werden(da mehr nicht auf ein DIN A4 Seite passen) die nächsten 5 daneben und wieder 5 untereinander.
Wie könnte ich das umsetzen, dass die Frames nicht kreuz und quer (Random) auf dem Formular verteilt sind?