Keypress Problem bei Setfocus

[thomas2009]

Hallo

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

if(Key =39)then
    begin
      ShowMessage('Pfeil rechts'); 
    end;

Es funktioniert nur wenn der Focus in einem Edit !
Wenn ein BitBtn Button zum beispiel den Focus hat, dann funktioniert nicht

[turboPASCAL]

Im OI für die Form KeyPreview auf True setzen.

[Uwe Raabe]

Zitat:

Zitat von turboPASCAL

Im OI für die Form KeyPreview auf True setzen.

Ich weiß nicht, wie oft ich ihm das schon gesagt habe...

[Hawkeye219]

Hallo,

zum sicheren Abfangen der Pfeiltasten könnte man das Ereignis TForm.OnShortCut verwenden:

Delphi-Quellcode:

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  Key : TShortCut;
begin
  Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));

  if (Key = VK_RIGHT) then
    begin
      ShowMessage ('Gotcha!');
      Handled := True;
    end

Gruß Hawkeye

[thomas2009]

Zitat:

Zitat von turboPASCAL

Im OI für die Form KeyPreview auf True setzen.

Natürlich ist KeyPreview auf true
Teste doch

______

Zitat:

Zitat von Hawkeye219

Hallo,

zum sicheren Abfangen der Pfeiltasten könnte man das Ereignis TForm.OnShortCut verwenden:

Delphi-Quellcode:

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  Key : TShortCut;
begin
  Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));

  if (Key = VK_RIGHT) then
    begin
      ShowMessage ('Gotcha!');
      Handled := True;
    end

Dein Code funktioniert viel besser und unabhängig von dem Fokus

Edit :
Es gibt aber ein problem mit der Tasten kombination zum beispiel :

Delphi-Quellcode:

  if ((Key = VK_CONTROL) and (Key = VK_RIGHT) ) then
    begin
      ShowMessage ('CTRL + Pfeil'); // Reagiert nicht !
      Handled := True;
    end

Danke :thumb:

[Hawkeye219]

Hallo Thomas,

ich sehe deine Ergänzung leider erst jetzt. Natürlich kannst du auch Kombinationen mit den Umschalttasten abfragen:

Delphi-Quellcode:

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  Key : TShortCut;
begin
  Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));

  if (Key = scShift or VK_RIGHT) then
    begin
      ShowMessage ('Gotcha!');
      Handled := True;
    end;
end;

Gruß Hawkeye

[Blackheart]

Key Taste die zwölfte (oder waren es schon mehr) von thomas2009 ? :wink:

[thomas2009]

Ich verstehe nicht, warum mit "or" funktioniert aber mit "and" nicht !

Delphi-Quellcode:

...
if (Key = scShift or VK_RIGHT) then

[SirThornberry]

die Pfeiltasten müssen über die entsprechende Message erlaubt werden wm_getdlgkey oder wo ähnlich.

[Christian Seehase]

Moin Thomas,

in dem Beispiel sieht es so aus:

Code:

scShift  = 8192 = 10000000000000 (bin)
VK_RIGHT =   39 =         100111 (bin)

Wenn jetzt diese Tasten gleichzeitig gedrückt werden, ist

Code:

Key = 8231 = 10000000100111 (bin)

da jetzt

Code:

scShift and VK_RIGHT = 0

ist (bei logischer Und-Verknüpfung werden alle Bits 1, die bei beiden Werten 1 sind, ansonsten wird's 0)
und

Code:

scShift or VK_RIGHT = 10000000100111

ist (bei logischer Oder-Verknüpfung werden alle Bits 0, die bei beiden Werten 0 sind, ansonsten wird's 1),
ist die Gleichheit nur bei OR gegeben.