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

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.

OnMouseLeave

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

// edit: ab welcher Version gibt es MouseLeave?

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...

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

Ich löse dieses Problem gerne so :

1) Im Interface Abschnitt vor der Deklaration der Form :

markieren

Delphi-Quellcode:

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

2) Im Implementation Abschnitt :

markieren

Delphi-Quellcode:

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

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

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.