Feststellen, ob der Cursor ein Image verlässt

[kroete]

Hi Leute. Ich hab mal wieder ein Problem mit meinem Schiffeversenken Projekt. Und zwar:
Wie kann ich feststellen, ob der Cursor ein TImage verlassen hat?

Ich hoffe, ihr könnt mir da weiterhelfen.
Hendrik :coder:

[DeddyH]

Du könntest in einem Timer-Event prüfen, ob sich der Cursor noch im Bereich des Images befindet (mit der Funktion PtInRect). Alternativ ginge auch ein Maushook, aber das wäre wohl übertrieben.

[Die Muhkuh]

OnMouseLeave :gruebel:

[taaktaak]

Warum so kompliziert? Das Image hat doch ein MouseMove, wär's da nicht passender...

// edit: ab welcher Version gibt es MouseLeave?

[kroete]

Es geht mir nicht darum, eine OnMouseMove Prozedur zu machen, so eine hab ich ja schon. Ich brauche eine Prozedur, die aktiviert wird, wenn ich das Bild verlasse. Und onMouseLeave hab ich bisher bei keiner meiner Komponenten entdeckt...

[DeddyH]

Hatte eben zuerst in die D7-Hilfe geschaut:

Zitat:

In TImage

OnProgress

Abgeleitet von TControl

OnClick
OnContextPopup
OnDblClick
OnDragDrop
OnDragOver
OnEndDock

OnEndDrag
OnMouseDown
OnMouseMove
OnMouseUp
OnStartDock
OnStartDrag

Und jetzt kommen Sie :lol:

[Amateurprofi]

Ich löse dieses Problem gerne so :

1) Im Interface Abschnitt vor der Deklaration der Form :

Delphi-Quellcode:

type
   TImage=class(ExtCtrls.TImage)
   private
      procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
   end;

2) Im Implementation Abschnitt :

Delphi-Quellcode:

procedure TImage.CMMouseLeave(var Message: TMessage);
begin
end;

[DeddyH]

Mit CM_MOUSELEAVE habe ich schon schlechte Erfahrungen gemacht, wenn man die Maus sehr schnell aus dem Control zieht.

[Die Muhkuh]

Zitat:

Zitat von kroete

Und onMouseLeave hab ich bisher bei keiner meiner Komponenten entdeckt...

Kann ich nichts dafür, wenn Du Deine Delphi-Version nicht im Profil angibst. Hellsehen kann ich nicht. :roll: