![]() |
Feststellanzeiger
Liste der Anhänge anzeigen (Anzahl: 2)
Ich hab einen Laptop ohne LED für die Feststelltaste, was nervig ist, wenn man drauf kommt und es nicht merkt.
Ich bringe es aber auch nicht übers Herz die Feststelltaste abzuschalten (warum: keine Ahnung :mrgreen: ). Also hier mein Programm, welches optisch und akustisch anzeigt, ob Capslock an ist. Erwähnenswert finde ich die automatische Rücksetzung der Feststelltaste und ein hübsches Tray-Icon. EDIT: Das Ganze ist geschrieben und kompiliert mit Lazarus. Kritik und Vorschläge sind erwünscht. Lob hab ich nicht verdient, das Auslesen und Setzten der Capslock-Status habe ![]() MfG, Bug |
Re: Feststellanzeiger
Gibt es da keinen Treiber/Hersteller-Software?
Die Funktastatur meiner Mom hat auch keine LEDs, aber dafür wird es via OnScreenDisplay direkt auf dem Bildschirm eingeblendet. PS: Systemsteuerung > Eingabehilfen > Tastatur dakann man sich auch 'nen Sound einbspielen lassen :stupid: |
Re: Feststellanzeiger
Zitat:
Zitat:
Popup, Tray-Icon und automatische Rücksetzung gibt es da aber nicht (man kann das alles auch Ausstellen) :mrgreen: MfG, Bug |
Re: Feststellanzeiger
Joar ... man kann halt nicht alles habel :stupid:
Zumindestens für Num-Lock gibt es indirekt ein TrayIcon, zusammen mit der für Desktops praktischen Tastaturmaus (leider gibt's ja keinen NummernBlock auf Notebooks). Statt dem Popup, könnte man eventuell auch ![]() [add] Wie stellst du die Locks denn um/zurück? [noch' edit] bin auch blöd, da liegt ja der Source rum [/edit] Bei mir ist mit deinem Programm die Feststelltaste (CapLock) immer aktiviert und statt des Pollens via Timer würde ich einen globalen Tastaturhook empfehlen, denn wie du gleich sehn kannst, werden bei diesen Tasten auch nette Tastencodes gesendet :)
Delphi-Quellcode:
OK, das geht so nur innerhalb deiner Anwendung, aber als globalen Tastaturhook umgesetzt, muß man nicht ständig den Status abfragen. :zwinker:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); begin Caption := Format('%d %d %x', [GetTickCount, Key, Byte(Shift)]); end; |
Re: Feststellanzeiger
![]() Ich habe mir einmal erlaubt unter dem Link, eine (Delphi) nonVCL-Version mit einem Low Level Tastaturhook bereit zu stellen. |
Re: Feststellanzeiger
Dein Programm zeigt zwar den Status richtig an, aber es schaltet MEIN CapLock immer an
(vermutlich durch due Ausschaltautomatik) Grund wird hier wohl auch mein anderes Tastaturverhalten haben siehe Beschreibung und Anhang im anderen Thread ![]() |
Re: Feststellanzeiger
Zitat:
|
Re: Feststellanzeiger
Zitat:
![]() |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz