Mauszusatztasten nutzen

[Aurelius]

Hi DPler :hi:

in meinem Programm sollen auch Mauszusatztasten genutzt werden können. Aber wie stelle ich das ganze an?

Bis jetzt habe ich nur die Möglichkeit gefunden die Tastencodes per JvShellHook abzufangen (so nutze ich auch die Tastaturzusatztasten). Die Mauzuzsatztasten sollen aber nur verarbeitet werden wenn die Application im Vordergrund ist, wofür ich aber keine Property gefunden habe ("isontop" oder so). Alternativ wäre es möglich zu überprüfen ob irgendein Fenster meiner Application den Focus hat. Hier gibt es aber Probleme, da das Ganze so nicht funktioniert wenn ein Control den Focus besitzt (was immer der Fall ist).

[Larsi]

überprüf odch ob die maus auf dem formular ist und dann sollen die zusatztasten der maus gehen!



Pseudocode:

Delphi-Quellcode:

if mouse.cursorpos.x < form1.height then
if mouse.cursorpos.y < form1.width then
ShowMessage('Jetzt kann mann die Zusatztasten verwenden!');

[Aurelius]

Das wäre eine Möglichkeit, aber was ist wenn das Fenster im Vordergrund ist, man aber die Maus nicht auf dem Formular hat? Dann würde das ja nicht gehen...

[Hador]

Wenn dein Fenster im Vordergrund ist und Aktiv ist, dann ist Form.Active = True. Auch wenn du ein Control drauf hast, was den Fokus hat. Der Fokus hat doch nichts damit zu tun, ob ein Fenster Aktiv ist oder nicht. Oder verstehe ich dich falsch?

[Aurelius]

Das hieß ja .Active :wall: