Jo hab Ich, aber das hatt ja ansich mit dem Problem nichts zu tun das ist ja nur für den Wuerfel Array das haut ja hin.
Wie Ich das sehe läuft die function von Hawkeye219 den Array ab und bricht dann beim ersten gefundenen freien Platz ab.
Berichtigt Mich wenn Ich da was falsch seh.
Delphi-Quellcode:
function GetVisibleImage (var aImage: TImage): Boolean;
var
i : Integer;
begin
for i := 0 to High(Images) do
begin
aImage := Images[i];
Result := aImage.Visible;
if Result then
Exit;
end;
Result := False;
end;