Eine Messagebox ist eine Meldung, die in einem kleinem Fenster mit OK button ausgegeben wird.
Zu deinem Problem mit den Checkboxen:
Du solltest am Besten ein Array deklarieren, in welchem du deine Checkboxen speicherst, zum Beispiel
Delphi-Quellcode:
type TCheckBoxArray = Array[0..39] of TCheckbox // oder wieviele du brauchst
{ ... }
var
CheckBoxArray: TCheckBoxArray; // Eine Variable deines Arrays
Jetzt kannst mit der oben genannten Forschleife jede Checkbox erstellen und werte zuweisen
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
for i := 0 to 39 do // oder deine Anzahl
begin // hier ist die Verbundanweisung nötig, da du ja Mehrere Anweisungen innnerhalb der Schleife Machen willst
CheckBoxArray[i] := TCheckbox.Create(Form1);
CheckBoxArray[i].Parent := Form1;
CheckboxArray[i].Height := WasAuchImmer;
CheckBoxArray[i].Width := WasAuchImmer2;
CheckboxArray[i].Top := i*(WasAuchImmer+1); // Dann sind alle Checkboxen untereinander
end;
end;
Aber Vergiss nicht, die Checkboxen hinterher wider freizugeben mit
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: integer;
begin
For i := 0 to 39 do // oder deine Anzahl
CheckBoxArray[i].free;
end;
Ich hoffe, das hilft