Form MouseEnter/Leave problem

[DelTurbo]

Hi,
ich möchte mitbekommen, wann man mit der Maus in der Form ist, bzw. diese verlässt. Nun habe ich in der From einfach OnMouseEnter und Leave genommen. Leider kommt auch ein Leave wenn ich über ein Objekt fahre. z.B. Button, Label, Panels usw.

Gibt es da einen Trick? Bei allen Objekten nun das Enter und Leave einzubauen fände ich etwas komig.

Danke im voraus

[DeddyH]

Schau doch im OnMouseLeave einfach nach, ob sich die Maus noch innerhalb des Formularrechtecks befindet.

[DelTurbo]

Leider bekommt man auch ein Leave wenn man in die Captionbar "geht". Und danach nichtmehr. Man könnte ja in einem Timer abfragen wo die Maus ist. Aber ich dachte es geht "eleganter".

[Mikkey]

Zitat von DelTurbo:

Leider bekommt man auch ein Leave wenn man in die Captionbar "geht". Und danach nichtmehr.

So soll es auch sein. Das Leave-Ereignis tritt auf, wenn der Clientbereich verlassen wird. Wenn Du also das Leave-Ereignis mitgeteilt bekommst, fragst Du die Mausposition ab, ob sie innerhalb des Clientbereichs liegt. Ist dem so, war es ein "unechter" Leave.

[DelTurbo]

Ich habe es nun mit einem Timer gelöst. Klappt einwandfrei.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
   P: TPoint;
 begin
   GetCursorPos(P);
   if (P.X>Form1.Left) AND (P.X<Form1.Left+Form1.Width) AND (P.Y>Form1.Top) AND (P.Y<Form1.Top+Form1.Height) then begin
    Form1.AlphaBlendValue:=255;
   end else begin
    Form1.AlphaBlendValue:=100;
   end;

end;

[DeddyH]

Das klappt aber nur solange, wie Du keine 2. Instanz von TForm1 erstellst. Soll heißen: schmeiß das "Form1" da jeweils raus.