Num/Caps/Scroll-Lock?

NetZwerg · Beiträge: 448 Slackware 10.1 Kylix 3, D5 Standard

hi, wie kann ich Num/Caps/Scroll-Lock (de)aktivieren? also mit 'nem delphi-programm. tschö, dave

_________________
"Manche Leute drücken nur deshalb ein Auge zu, damit sie besser zielen können."
Billy Wilder, amer. Filmregisseur

rstaeker · Beiträge: 94 WIN 2000 D6 Prof

Hier mal ein Beispiel, wie ich es mal gelöst habe.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm.Timer_AnzeigeTimer(Sender: TObject); 
var KeyboardState:TKeyboardState; 
begin 
  GetKeyboardState(KeyboardState); 
  if KeyboardState[VK_SCROLL]=1 then SetLEDState(ktScrollLock, False) 
                                else SetLEDState(ktScrollLock, True); 
end;

ktScrollLock ist der Code für die Rollen Taste. Leider hab ich die einzelnen Codes für die anderen Tasten nicht zur Hand, aber die Hilfe sollte dazu eigentlich etwas wissen.

Bei Fragen immer raus damit, bin ja am WE zuhause und kann dann genau nachschauen.

MfG Rene

NetZwerg · Beiträge: 448 Slackware 10.1 Kylix 3, D5 Standard

Undefinierter Bezeichner: 'SetLEDState'
Undefinierter Bezeichner: 'ktScrollLock'

Muss ich da nich ne andere Unit einbinden?

Die Delphi-Hilfe hat folgendes geschrieben:

VK_CAPITAL Feststelltaste
VK_NUMLOCK Taste Num
VK_SCROLL Taste Rollen

Moderiert von Peter Lustig: Quote-Tags repariert

_________________
"Manche Leute drücken nur deshalb ein Auge zu, damit sie besser zielen können."
Billy Wilder, amer. Filmregisseur

toms · Beiträge: 1099 Erhaltene Danke: 2

www.swissdelphicente.../showcode.php?id=926

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme