(Co-Admin)
Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
Turbo Delphi für Win32
|
Re: Progressbar(gauge) vorspulen
3. Mär 2010, 22:26
Ich weiß nicht, ob man im OnMouseMove feststellen kann, ob eine Maustaste gedrückt ist. Sicher geht es irgendwie. Vielleicht gibt's da was wie "GetAsyncKeyState" o.ä.
Mit der Variablen kann ich das prüfen. Im OnMouseDown setze ist diese auf "true", wenn die linke Maustaste gedrückt wurde und im OnMouseUp und OnMouseLeaver auf "false".
Im OnMouseMove wird die ProgresssBar dann nur verändert, wenn die Variable "true" bzw. die linke Maustaste gedrückt ist. Sonst verändert sich diese auch ohne eine gedrückte Maustaste und das wäre natürlich schlecht.
Edit: Es geht sogar mit "GetAsyncKeyState" (s. Anhang).
|