DateTimePicker MouseClick auf SpinButton abfragen

[Gundelphi]

Hallo,
wie könnte ich den MouseClick auf das SpinButton beim DateTimePicker, mit der Eigenschaft Kind = dtkTime, abfragen (SpinButton rauf oder SpinButton runter angeklickt)?

Das OnClick-Ereignis wird nur ausgelöst wenn auf das Editierfeld geklickt wird und nicht wenn auf die SpinButtons geklickt wird.

[Stevie]

Scheint ziemlich schwierig zu sein, hab jedenfalls keine Windows-Message dafür gefunden, weil das Control das irgendwie intern macht, aber versuchs doch man mit OnChange, wenn du nämlich auf die Buttons klickst, dann ändert sich der Wert. Über die Mausposition könntest du gucken, ob die über dem Spinbutton sind...

[Gundelphi]

Danke für den Hinweis!
Ich habe es mittlerweile über das OnChange-Ereignis versucht. Jedoch löst eine manuelle Eingabe über das Keyboard auch ein OnChange-Ereignis aus. Mir fehlt leider noch eine Routine zur Feststellung der Mausposition. - Könntest Du mir dazu einen Tipp geben?

[Dax]

GetCursorPos liefert die Position der Maus.
Aber es gebt evt. einen Workaround für OnChange: eine Vhar-Variable, die das letzte eingegebene Zeichen des Edits speichert und gelöscht, wenn das Edit-Control den Focus verliert..

[Gundelphi]

habe mein Problem zufriedenstellend lösen können:

Im OnChange-Ereignis vom Picker die Funktion GetKeyState() aufrufen und sie liefert nach folgender Syntax einen negativen Wert zurück wenn die linke Maustaste betätigt ist:

Delphi-Quellcode:

if GetKeyState(VK_LBUTTON) < 0 then //gedrückt
  MausKlick := true
else
  MausKlick := false;

Vielen Dank an Stevie und Dax!