TAstatur

[Frosch]

Hallo,
ich habe eine Frage zu der Tastaturprogrammierung.

Wie kann ich es in Delphi programmieren, sodass man, wenn man z.B. den Pfeil nach oben gedrückt hält, sich ein Bild nach oben bewegt und wenn man ihn wieder los lässt, dass das Bild dann anhält.
Genauer, in was für eine Prozedur man das ganze dann schreibt und wie die "Abfragenamen" für die einzelnen Tasten lauten.
Danke im Vorraus!

[Schaedel]

Bemühe bitte das nächste mal die Suche...
Schau mal unter den Begriffer Virtualkeys ,OnKeydown und OnKeypress nach

ps: Herzlich Willkommen

[Sascha_OW]

Mach doch einfach OnKeyPress und dann:

Delphi-Quellcode:

If Ord(Key) = x then Image1.Top := Image1.Top - 25;

Ich weiss nicht genau ob das das ist was du suchst aber so habe ich das verstanden und geht auch sehr leicht das X durch den Wert ersetzen. Der einfachheit würde ich zur Steuerung asdw nehmen wie Counterstrike das auch macht

[Frosch]

Danke schonmal für die Antworten.

Hab ich das Jetzt richtig verstanden, dass wenn man jetzt die Taste X drücken würde, das Bild nach oben laufen würde?

[3_of_8]

Oder machs mit nem Timer und GetAsyncKeyState(VK_UP)<0.

[Frosch]

Ich weiß gerade nicht, ob ich mich zu doof anstelle, oder ob ich mich viellecht falsch versteht.
Also ich kenne das aus VisualBasic so:


If keycode = 36 then
Image1 = Image1 +1
End If

Jetzt weiß ich nur nicht, wie ich so eine Taste in Delphi abfrage. Was auf in Delphi dieses "keycode = 36"ist. Ich habe im Internet eine Liste gefunden mit "Virtuellen Tastencodes", die werden dann denke ich ja irgendwie in der Programmierung vorkommen müssen:

Zitat:

Delphi-Quellcode:

If Ord(Key) = x then Image1.Top := Image1.Top - 25;

Müsste ich hier jetzt anstelle des X den Virtuellen TAstencode für die Taste einsetzen?


--------------------------------------

Zitat:

ps: Herzlich Willkommen

Danke und Hallo an alle :hi:

[3_of_8]

Nein, nein, nein. Das funktioniert nur bei Tasten mit ASCII-Codes.

Du musst das ganze bei OnKeyDown machen, nicht bei OnKeyPress, und dann auch ohne das Ord().

Aber dabei musst du darauf achten, dass deine Komponente auch den Fokus hat.

[Frosch]

Ich glaub ich stell mich gerade verdammt doof an, habe es aber immer noch nicht verstanden.

Könnte mir jemand mal einfach nur die folgende deutsche Zeile nach Delphi übersetzen, dann wäre mir schon seh weitergeholfen.

Wenn ich die Taste mit dem Pfeil nach oben drücke, dann...





Vielen Dank nochmal und sry für den Aufwand.

[3_of_8]

Klick auf deine Form. Gehe unter Ereignisse und klicke doppelt auf OnKeyDown.

Schreib dann rein:

if key=VK_UP then blubb;

[hanselmansel]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If Key = VK_Up then
  ShowMessage('wuppdi!');
end;

MfG,

hanselmansel