Abfragen ob Image innerhalb des Formulars

[soulflare]

Hallo!

Trotz langem Überlegen und suchen finde ich keine Möglichkeit abzufragen ob sich ein Image im sichtbaren Teil des Formulars befindet oder nicht. Ich wäre froh wenn mir da einer helfen könnte. Ich habe bisher nur rausgefunden wie man guckt ob sich 2 Bilder überschneiden:

Delphi-Quellcode:

if     (Abs(image1.Left - image2.Left) <= image1.Width)
   and (Abs(Image1.Top - image2.Top) <= image1.Height)
 then
  begin
    Form1.collision.visible := true;
  end
  else begin
    Form1.collision.Visible := false;
    end;

Aber mein Problem kriege ich damit nicht gelöst. :-(

Grüße
Tobi

[DGL-luke]

Delphi-Quellcode:

function IsFullyVisible(form:TRect,image:TRect):boolean;
begin
result:=true;
if form.left > image.left then result := false
else if form.right < image.right then result:=false
else if form.top > image.top then result:=false
else if form.bottom < image.bottom then result:=false;
end;

wobei hier form.left und form.top null sein sollten (nicht die tatsächlichen screen-koords).

:)

[soulflare]

Also das verstehe ich noch nicht so ganz. Was übergebe ich denn dann als Parameter?

EDIT: OK, alles klar, danke. Ich habs. :-)