Feststellen, ob eine Maus verfügbar ist |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Folgende Funktion ermittelt, ob eine Maus im System installiert ist:
function MouseExists: Boolean;
begin
Result:= GetSystemMetrics(SM_MOUSEPRESENT) <> 0
end;
Die Funktion basiert auf dem Aufruf von GetSystemMetrics. Dieser API-Funktion liefert je nach Konstante, die ihr übergeben wird, unterschiedliche Systemparameter. Alternativ könnte man ihr auch SM_MOUSEWHEELPRESENT übergeben, um festzustellen, ob ein Mausrad verfügbar ist bzw. SM_CMOUSEBUTTONS um die Anzahl der Maustasten zu ermitteln.
- TWinControl beim Mauszeiger ermitteln
- Mausklick auf einen Button simulieren
- Rechte Maustaste im Caption-Bereich abfangen
- Eingabegeräte sperren
- Mausbereich verkleinern
- Mausposition festlegen
- Befindet sich die Maus über einem Control?
- Aktuelle Mausposition ermitteln
- Mausclick simulieren
- Abfragen, welche Maustaste der Anwender gedrückt hat