Witam, mam pewne dość nietypowe pytanie.
Otóż podczas pracy nad swoim programem zastanawiałem się jak można określić czy np: Komponent TLabel znajduje na komponencie TImage. Spokrewnione jest to troche z funkcją OnMouseEnter, i OnMouseLeave, tylko ,że w tym przypadku zamiast Myszki ma to być jakiś komponent ;) ...
Chmmm, ciężko mi to wyjaśnić, ale myślę ,że zrozumiecie o co mi chodzi :D
Pozdrawiam.
Może jest i inny sposób, ale najprościej będzie w wątku albo timerze sprawdzić
to tak jak poniżej. Zmienna TempRect o ile pamiętam to co napisano w helpie,
zwróci TRect będący wymiarami wspołnie zajętego obszaru, ale do końca tego
pewien nie jestem. A w ogóle o funkcji IntersectRect wiem z tutoriala video na
Youtube, gdzie dwóch gości komentując pokazuje, aż w trzech - chyba ponad
30 minutowych lekcjach podstawy instalacji i obsługi Delphi. Jak też sposób w
jaki można stworzyć prostą grę, gdzie sterując myszką jednym Image mamy
"uciekać" przed drugim Image, który porusza się szybciej - z upływem czasu.
var
TempRect : TRect;
begin
if IntersectRect(TempRect, Label1.BoundsRect, Image1.BoundsRect) = True then
begin
Label1.Caption := 'Label1 jest w obszarze Image1';
end;
end;
Witaj, Olesio.
Wielkie dzięki za pomoc, wyszystko działa jak należy, polecam również tą procedurę, bo rzeczywiście można z niej wyczarować niezłą grę ;D
Dzięki i Pozdrawiam!!!