OnMouseEnter bzw. -Leave-Events realisieren

[Zacherl]

Ganz anderer Ansatz:

Delphi-Quellcode:

var
  IsInside: Boolean;

procedure TForm2.Panel1MouseEnter(Sender: TObject);
begin
  if not IsInside then
  begin
    IsInside := true;
    // TODO: 
  end;
end;

procedure TForm2.Panel1MouseLeave(Sender: TObject);
var
  P: TPoint;
begin
  GetCursorPos(P);
  Panel1.ScreenToClient(P);
  if not PtInRect(Panel1.ClientRect, P) then
  begin
    IsInside := false;
    // TODO:
  end;
end;

[DeddyH]

Oder etwas kürzer (ungetestet):

Delphi-Quellcode:

var
  IsInside: Boolean;

procedure TForm2.Panel1MouseEnter(Sender: TObject);
begin
  IsInside := true;
end;

procedure TForm2.Panel1MouseLeave(Sender: TObject);
begin
  IsInside := PtInRect(TPanel(Sender).ClientRect, 
    TPanel(Sender).ScreenToClient(Mouse.CursorPos));
end;

[sintronic86]

@Zacherl & @DeddyH: Die Idee finde ich gut! Leider finde ich das ClientRect nicht wirklich. Jedenfalls wenn ich über "Refactur" -> "Unit suchen" gehe, zeigt er mir zwar eine Unit an, und implementiert diese auch, aber das TPanel (bzw. in meinem Fall die TToolBar) hat derartiges nicht.

Lediglich ClipRect gibt es, aber das enthält merkwürdige Werte: Left & Top = 0... Was doch ja nicht Sinn der Sache ist.

[DeddyH]

ClientRect gibt es ab TControl. Oder ist das am Ende eine Firemonkey-Anwendung? Da könnte es natürlich sein, dass es eine solche Property nicht gibt, das kann ich aber mangels Firemonkey nicht sagen.

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