Kollision mit Image und Maus ?

[smart]

Hallo Alle!

Wie kann ich eine Kollision mit Image und Maus errechen?
Ich kenne nur

Delphi-Quellcode:

Var
lSectionRect : TRect;
begin
For Test2 := 1 To I Do
If (IntersectRect(lSectionRect, Image1.BoundsRect, Image2.BoundsRect)) Then
   begin 
….

Wie bekomme ich da die Maus rein?

Gruß
Heike

[DGL-luke]

:gruebel:

OnMouseEnter / OnMouseLeave?

EDIT: Ansonsten immer:

Delphi-Quellcode:

function MouseInRect(Rect: TRect; Control: TControl):Boolean;
var p: TPoint;
begin
  p := Mouse.CursorPos;
  if Control <> nil then
    p := Control.ScreenToClient(p);

  Result := (p.X >= Min(Rect.Left, Rect.Right)) and (p.X <= Max(Rect.Left, Rect.Right)) and (p.Y >= Min(Rect.Top, Rect.Bottom)) and p.Y <= Max(Rect.Top, Rect.Bottom);
end;

EDIT: Prozedur->Funkion :roll:

[mirage228]

Hi,

Falls das TImage kein OnMouseLeave / OnMouseEnter hat, dann
könntest Du mit CreateRectRgn eine Region mit den Koordinaten des Images erstellen und dann beim MouseMove (der Form / des Images) mit PtInRegion die Positon überprüfen.

mfG
mirage228

[PainInYourBrain]

wie genau meinst du denn Kollision ?
- soll das Image sich darauf zubewegen und abprallen, oder weggeschubst werden von der Maus ?
Denn dann bräuchtest du dazu noch eine Richtungsangabe, die du ja nicht durch "OnMouseEnter" und "OnMouseLeave" bekommen würdest, oder sehe ich das falsch ?

---
( Hab leider kein Delphi grade zur Hand, bald aber wieder ... )
---

[smart]

Zitat:

Zitat von PainInYourBrain

wie genau meinst du denn Kollision ?
- soll das Image sich darauf zubewegen und abprallen, oder weggeschubst werden von der Maus ?
Denn dann bräuchtest du dazu noch eine Richtungsangabe, die du ja nicht durch "OnMouseEnter" und "OnMouseLeave" bekommen würdest, oder sehe ich das falsch ?

Hi.

Nicht ganz. Ein Image soll sich auf die Maus drauf zu bewegen. Wenn es getroffen hat, soll was ausgelösst werden.

Gruß
Heike

[Hawkeye219]

Hallo Heike,

vielleicht hilft dir ja die Funktion FindDragTarget aus der Unit Controls. Mit ihr kannst du sogar ermitteln, welches Control der Mauszeiger berührt hat.

Gruß Hawkeye

[Sunlight7]

Hallo Heike!

Du meinst, sobald der Mauscursor das Image berührt?

Dann einfach OnMouseMove des Image verwenden.

[smart]

Zitat:

Zitat von Sunlight7

Du meinst, sobald der Mauscursor das Image berührt?
Dann einfach OnMouseMove des Image verwenden.

Hi.

Mit OnMouseMove geht das nicht so ganz. Wenn die Maus nicht bewegt wird und das Image kommt unter der Maus, dann wird kein OnMouseMove ausgelöst.

Gruß
Heike

[DGL-luke]

Dann solltest du die Prüffunktion, die ich vorgeschlagen habe, verwenden, jedesmal wenn du das image bewegst.

[Namenloser]

Zitat:

Zitat von DGL-luke

Dann solltest du die Prüffunktion, die ich vorgeschlagen habe, verwenden, jedesmal wenn du das image bewegst.

Und wenn sich das Image alle 1000 ms bewegt und ich dazwischen mit meiner Maus drüberfahre?

ich würde im MouseMove und bei der Bewegung kontrollieren.