Programm mit Tastatur steuern?

[AlexII]

Hab jetzt folgenden Code

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=CHR(VK_RETURN) then showmessage('ok');
end;

Das funkt auch, aber das hier:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=CHR(VK_RIGHT) then showmessage('ok');
end;

nicht, ich frage mich wieso? :gruebel:

[Hansa]

Auch das ist bereits vorgekaut in dem Link nachzulesen. :roll:

[Sir Rufo]

ähhh ... lesen hilft ja bekanntlich ... wir sprachen immer von OnKeyDown, OnKeyUp ... niemales von OnKeyPress :mrgreen:

[AlexII]

Zitat:

Zitat von Hansa

Auch das ist bereits vorgekaut in dem Link nachzulesen. :roll:

Hab da nix gefunden, VK_Right, CHR(37)Links oder CHR(39)Rechts funktionieren nicht. :wall:

[Sir Rufo]

ahhhhhhh ... nimm statt dem Event OnKeyPress das Event OnKeyDown ... nur da kannst du die Pfeiltasten abfragen!

[AlexII]

Zitat:

Zitat von Sir Rufo

ähhh ... lesen hilft ja bekanntlich ... wir sprachen immer von OnKeyDown, OnKeyUp ... niemales von OnKeyPress :mrgreen:

Ach so... und wieso brauche ich zwei Ereignisse? Reicht nur OnKeyDown?

[AlexII]

Bei OnKeyDown OnKeyUp funkt überhaupt nicht, nicht mal Enter.

[Sir Rufo]

Du brauchst nicht 2 Ereignisse, sondern du kannst bei diesen 2 Ereignissen die Info zu den Pfeiltasten bekommen.

Du entscheidest, wann du reagieren möchtest

Taste runter -> OnKeyDown
Taste rauf -> OnKeyUp (denn wat runter muss auch wieder rauf)

[hoika]

Hallo,

OnKeyPress
Warum nicht ShowMessage(Key)

OnKeyDown
Es wird direkt VK_X abgefragt.

Delphi-Quellcode:

If Key=VK_RIGHT

Heiko

[Sir Rufo]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ShowMessage( Format( '%d', [ Key ] ) );
end;

end.