Hinter der IF-Abfrage begin und end setzen...
Sonst wird der zweite TypCast nach TPanel für jede Komponente ausgeführt... müsste ne
AV geben....
Delphi-Quellcode:
for i:=0 to ComponentCount-1 do begin
if Components[i] is TPanel then begin
TPanel(Components[i]).Left:= Random(ShSpiel.Width)-25;
TPanel(Components[i]).Top:= Random(ShSpiel.Height)-25;
end;
Für den Fall, dass deine lustigen Panels immer noch über den linken und oberen Rand gucken aus
TPanel(Components[i]).Left:= Random(ShSpiel.Width)-25;
wird
TPanel(Components[i]).Left:= Random(ShSpiel.Width - 25);
Müsste eigentlich nun gehen....
