Viele OnMouseMove Proceduren | elegantere Lösung

[daniel-h]

:wall: ich habe jetzt dies dort stehen:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var
  point: TPoint;
begin
  GetCursorPos(point);
  if PtInRect(BoundsRect{oder ClientRect, je nachdem},Mouse.CursorPos) then

    form1.Width := 200;
    form1.AlphaBlendValue := 255

  else

    form1.AlphaBlendValue := 1;
    form1.Width := 1;
end;

jetzt zickt der compiler :twisted: :

http://photoservice.ph.funpic.de/bugz.JPG

mfg

[DeddyH]

Mehrere Anweisungen schließt man in begin-end ein ;) und GetCursorPos kannst Du Dir sparen.

[edit] Übrigens: wieso machst Du die Prüfung nicht einfach im OnMouseLeave des Formulars? [/edit]

[daniel-h]

*duck* wie blöd von mir.
tja, alzheimer lässt grüssen :mrgreen:

add: thanks for support!!

[markus5766h]

Hallo,
wenn ich's richtig verstanden habe, liegt Dein Problem darin, dass die
Behandlungsprozedur des Ereignisses MouseLeave auch dann ausgeführt wird,
wenn Du z.B. innerhalb des Formulares mit der Mouse auf ein anderes Control
kommst.
Hierzu kann ich folgenden Lösungsansatz anbieten:
Plaziere Deine Komponenten so, dass Links, Rechts, Oben und Unten ein Rand
von jeweils (sagen wir mal) 8 Pixel frei bleibt. Im MouseLeave-Ereignis
des Formulares prüfst Du nun, ob sich der Mousezeiger innerhalb dieses
"Rahmens" befindet : wenn ja : Formular wieder auf 1 Pixel setzen, wenn nein,
dann ... nichts...

[daniel-h]

@ markus5766h: danke für die antwort! aber hat sich erledigt, funzt jetzt einwandfrei.
jetzt geht es um die funktionen meiner toolbar. also: rann an den speck!

mfg