Image Visible ?

[Blackheart]

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;