Abfrage mit IntersectRect klappt nicht, warum?

[smart]

Hallo Alle!

Wieso klappt diese Abfrage nicht? Ich habe auf einer Form einige TImages erzeugt (Mein_Bild[A]).
Ein anderes TImage verschiebe ich mit der Maus über die Form. Wenn ich hierbei über ein erzeugtes
TImage komme, soll dieses verschwinden.

Delphi-Quellcode:

For A := 0 To 100 do
begin
   If IntersectRect(lSectionRect, Mein_Bild[A].BoundsRect, Image1.BoundsRect) Then
   begin
     Mein_Bild[A].Visible := False;
   end;
end;

Bei dieser Abfrage bekomme ich immer eine Zugriffsverletzung.Was mache ich da falsch.:-(

Gruß
Heike

[marabu]

Hallo Heike,

eventuell existiert Mein_Bild[A] nicht?

Grüße vom marabu

[smart]

Zitat:

Zitat von marabu

Hallo Heike,

eventuell existiert Mein_Bild[A] nicht?

Grüße vom marabu

Morgen marabu.

Doch, ich kann es ja sehen.

Gruß
Heike

[marabu]

Manchmal sieht man etwas und es ist doch nicht "da":

Delphi-Quellcode:

if a in [Low(Mein_Bild)..High(Mein_Bild)] then
  ShowMessage('das ist ein Beweis');

marabu

[Larsi]

Zitat:

If IntersectRect(lSectionRect, image3.BoundsRect, Image2.BoundsRect) then begin

Was muss ich statt lSectionRect eintragen?

[Nuclear-Ping]

www.gidf.de

msdn intersectrect = http://msdn.microsoft.com/en-us/libr...25(VS.85).aspx