OnMouseEnter bzw. -Leave-Events realisieren

[sintronic86]

Entschuldigt, ja es ist eine Firemonkey-Anwendung. :( :( :(

[stahli]

OT zu FireMonkey:

Ich hatte das schon wegen dem "AnimationFloat" vorausgesetzt.
Es wäre aber wohl doch nochmal sinnvoll, bei Daniel ein eigenes Unterforum für FM anzuregen (dessen Threads sich evtl. sogar farblich von VCL-Threads unterscheiden).
Sonst sind solche Missverständnisse ja vorprogrammiert...

[sintronic86]

Ja, da hast du wohl Recht. Tut mir Leid, dass ich das nicht gleich von Anfang an gesagt hab.

Ich hab mich jetzt mit dem Ermitteln des Controls unter dem Mauszeiger versucht. Das OnEnter-Event funktioniert auch, aber irgendwie hab ich nen Knoten im Gehirn, was das OnLeave-Event angeht... :(

[sintronic86]

Ok, ich hatte einen absoluten Denkfehler drin. Ich dachte, ich müsste für das OnLeave-Event auch eine Methode schreiben, aber es genügt ja, im OnEnter mit der Methode rekursiv zu prüfen und bei negativem Ergebnis, das gewünschte Panel wieder kleiner zu machen. Ohhhhhh man.... :wall:

Allerdings scheint es Schwierigkeiten zu geben, wenn ich mit der Maus zu schnell über mehrere dieser Panels fahre.... Das hat aber wohl mit der Animation selbst zu tun, wenn ich das Panel verlasse, bevor die Animation zum Größermachen beendet wurde, dann wird es nicht mehr kleiner

[Sir Rufo]

Da die Mouse Events nicht immer zuverlässig feuern hilft eigentlich nur das Pollen über einen Idle-Event.

Beispiel:
http://delphi.about.com/od/delphitip...-the-mouse.htm

[sintronic86]

@Sir Rufo: wie implementiere ich die procedure TForm3.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); ???

[Bummi]

entweder

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
begin
  Application.OnIdle := OnIdle;
end;

procedure TForm6.OnIdle(Sender: TObject; var Done: Boolean);
begin
  // Dein Code
end;

Oder eine Komponente ApplicationEvents auf das Form legen und OnIdle versorgen.