Danke für die Ausführung.
Ich habe folgenden Test gemacht:
Code:
procedure TForm1.FormShow(Sender: TObject);
var
i,Spalte,Zeile:integer;
aLabel: TLabel;
begin
for i := 0 to 24 - 1 do
begin
Spalte := i mod 4;
Zeile := i div 4;
aLabel:=TLabel.Create(Self);
aLabel.Left:=Spalte*80;
aLabel.Top:=Zeile*25;
aLabel.Caption:='Label'+IntToStr(i);
end;
end;
es startet auch,keine Fehlermeldung, aber es werden keine Labels,gezeichnet.
was ist falsch?