Einzelnen Beitrag anzeigen

Alexander

Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
 
Turbo Delphi für .NET
 
#30

Re: Logitech-Tastatur: F-Tasten immer aktiviert lassen?

  Alt 31. Jul 2004, 20:00
Zitat von scp:
Ich wis nicht, wie das mit den Sondertasten ist, aber kann man die Scancodes nicht anzeigen (unter DOS ging das mal)?

Also den jewiligen "Tastatur-Manager" beenden und in ein leeres Projekt ein Label rein und folgendes ins OnKeyUp:
Delphi-Quellcode:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption := '0x' + IntToHex(Key, 4);
end;
EDIT: Das war der virtuelle Tastencode, der Scancode ist laut PSDK in WM_KEYDOWN und WM_KEYUP zu finden. Dazu leeres From mit KeyPreview auf true und diesem Code:
Delphi-Quellcode:
  private
    { Private-Deklarationen }
    procedure WMKeyUp(var Message: TWMKeyUp); message WM_KeyUp;
//...

procedure TForm1.WMKeyUp(var Message: TWMKeyUp);
begin
  Label1.Caption := 'Virtuell: ' + '0x' + IntToHex(Message.CharCode, 4) + ', '
                  + 'Scancode:'  + '0x' + IntToHex((DWORD(Message.KeyData) and $FF0000) shr 16, 4);
  inherited;
end;
Ich habe jetzt die Scancodes für die F-Tasten, nur was genau muss ich damit jetzt machen bzw. welche muss ich in der Reg. ersetzen?
Meine Scancodes:
Code:
F1 bis F9 : 0x003b bis 0x0043
F10 : ???
F11 : 0x0057
F12 : 0x0058
Alexander
  Mit Zitat antworten Zitat