TAstatur

[3_of_8]

Das 1. Bit ist gesetzt, wenn die Taste gedrückt ist.

Also hast du bei GetAsyncKeyState(VK_UP) wenn die Nach Oben Taste gedrückt ist folgendes Bitmuster:

Das letzte Bit hat auch eine Bedeutung, aber das kannst du ignorieren.

1 0 0 0 0 0 0 1

Ansonsten:

0 0 0 0 0 0 0 0

Da das erste Bit immer das Vorzeichenbit ist, ist die Zahl negativ, wenn die Taste gedrückt wurde.

[dino]

dieses ganze VK_
wie heißt das dann für die ganzen anderen Knöpfe?
wo finde ich die Liste?

[Christian Seehase]

Moin Dino,

Zitat von Dino:

wo finde ich die Liste?

in der Delphi Hilfe unter "virtuelle Tastencodes"

[dino]

und was ist a
und was A?
wenn nicht key='a'

Esc ist key=VK_Escape

[Christian Seehase]

Moin Dino,

Zitat von dino:

und was ist a
und was A?

Du darfst nicht Zeichen (a, A) und Taste (A) vermischen.
Der virtual Keycode bezieht sich nur auf die Tasten.

Ord('A') ist der VK für die Taste A (steht übrigens auch in der Hilfe )

[dino]

danke
und tut mir leid, dass ich mit der Hilfe nicht klar komme

[jokerfacehro]

hey

wenn du keycodes erfahren willst schreib einfach in onkeydown:
ShowMessage(IntToStr(Key)); und schon kriegste die jeweilige zahl

wenn du onkeydown nutzt wird der inhalt solange ausgefürht bis du wieder loslässt
onkeypress führt alles nur einmal aus

so bitte schön

[Martin K]

Zitat von jokerfacehro:

wenn du onkeydown nutzt wird der inhalt solange ausgefürht bis du wieder loslässt
onkeypress führt alles nur einmal aus

Falsch.
Auch bei OnKeyPress wird der Inhalt solange ausgeführt, wie die Taste gedrückt ist.

Aber warum testet ihr sowas nicht einfach selbst aus, geht doch ganz fix

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Tag := Tag + 1;
  Caption := IntToStr(Tag);
end;

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Tag := Tag + 1;
  Caption := IntToStr(Tag);
end;