WM_KEYDOWN wird nicht ausgelößt

[turboPASCAL]

Öhm und wo wird denn da der Keycode geholt ?

Also ala:

Delphi-Quellcode:

WM_KEYDOWN:
    begin
      myKeyCode := wParam
    end;

Ist doch wohl bei dir nonVCL oder ?

[EWeiss]

Zitat von turboPASCAL:

Öhm und wo wird denn da der Keycode geholt ?

Also ala:

Delphi-Quellcode:

WM_KEYDOWN:
    begin
      myKeyCode := wParam
    end;

Ist doch wohl bei dir nonVCL oder ?

Jo..

Delphi-Quellcode:

case wp of
        VK_SHIFT:

Aber er kommt nicht in WM_KEYDOWN rein das ist mein Problem

Also nicht das wir jetzt was verwechseln..
Ich meine nicht die Keys also Tasten auf dem Piano..

Sondern die von meiner Tastatur!

gruss

[madtom]

Hallo EWeiss,

ist es nonVCL? Ich habe es sonst in der VCL durchgespielt und es funktioniert: (ich habe es so angepasst, dass mir die Form1.Caption die gedrückten Tasten anzeigt)

Delphi-Quellcode:

procedure PlayStopKeyNote(KeyNote: Integer; State: TShiftState);
begin
  case KeyNote of
    VK_LEFT:
      Form1.Caption := 'Left'; // Left
    VK_RIGHT:
      Form1.Caption := 'Right'; // Right
    VK_UP:
      Form1.Caption := 'Up'; // Up
    VK_DOWN:
      Form1.Caption := 'Down'; // Down
    VK_RETURN:
      Form1.Caption := 'Return'; // Return
  else
    Exit;
  end;
end;

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

Thomas

[EWeiss]

Zitat von madtom:

Hallo EWeiss,

ist es nonVCL? Ich habe es sonst in der VCL durchgespielt und es funktioniert: (ich habe es so angepasst, dass mir die Form1.Caption die gedrückten Tasten anzeigt)

Delphi-Quellcode:

procedure PlayStopKeyNote(KeyNote: Integer; State: TShiftState);
begin
  case KeyNote of
    VK_LEFT:
      Form1.Caption := 'Left'; // Left
    VK_RIGHT:
      Form1.Caption := 'Right'; // Right
    VK_UP:
      Form1.Caption := 'Up'; // Up
    VK_DOWN:
      Form1.Caption := 'Down'; // Down
    VK_RETURN:
      Form1.Caption := 'Return'; // Return
  else
    Exit;
  end;
end;

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

Thomas

Lieber madtom
Danke für dein Beispiel
Aber ich sagte schon alle Tasten funktionieren nur diese 5 nicht.

Wenn ich den Focus erzwinge..

Delphi-Quellcode:

        // Focus für Tasten Eingaben
        ID_USEKEY:
        begin
          if UseKey then
            SKAERO_SetCheckButtonStatus(SKAERO_GetMainItem(MainHandle, ID_USEKEY), False);

          UseKey := not UseKey;
          SetFocus(MainHandle);
        end;

Dann funktionieren alle Tasten die ich angegeben habe um auf dem Piano zu spielen
Aber nicht VK_RIGHT, VK_LEFT, VK_UP, VK_DOWN, VK_RETURN

gruss

[turboPASCAL]

@EWeiss, ja aber irgend wo musst doch "wp" den Tastencoder erhalten vom WM_KEYDOWN oder nicht ?

[madtom]

Hallo EWeiss,

Für mich liest sich das so, als ob etwas noch mit dem Key Event Handling noch im Argen ist. Manche Botschaften (ich glaube auch VK_RETURN...) werden unter Umständen an das ParentControl weitergeleitet und müssen dann anders gehandelt werden. Frag doch mal unsere Spezialisten (Daniel, Luckie ...)

Viel Erfolg

Thomas

[EWeiss]

Zitat von turboPASCAL:

@EWeiss, ja aber irgend wo musst doch "wp" den Tastencoder erhalten vom WM_KEYDOWN oder nicht ?

Danke das wars..
Bin davon ausgegangen, da es mit allen Tasten funktioniert hat bisher, das ich die Tasten weiterhin über die Main WinProc verwalten kann.
So wie es aussieht geht es aber nicht.

Deshalb habe ich die beiden Messagen jetzt in meiner SuperClassing WinProc durchgeschleift..

Jetzt funktionieren die Keys.
Up,Down,left,right und enter scheinen keine WM_KEYDOWN Message auszulösen
deshalb war es schon richtig das ich meine Funktionen in WM_KEYUP weiterleite und verarbeite.
Muss das also wieder ändern.

Delphi-Quellcode:

      WM_KEYDOWN:
        SendMessage(GetParent(WinHandle), WM_KEYDOWN, wp, lp);

      WM_KEYUP:
        SendMessage(GetParent(WinHandle), WM_KEYUP, wp, lp);

gruss

[Moebius97]

Hi hi,
ist zwar schon durch, aber fürs protokoll:
jemand hat woanders ausprobiert, das die bezeichneten Tasten mit WM_SYSKEYDOWN auch durchgereicht werden. Das übenrimmt dann also ALLE Tasten...

Mario

[lbccaleb]

Zitat von Moebius97:

Hi hi,
ist zwar schon durch, aber fürs protokoll:
jemand hat woanders ausprobiert, das die bezeichneten Tasten mit WM_SYSKEYDOWN auch durchgereicht werden. Das übenrimmt dann also ALLE Tasten...

Mario

Ist zwar schon ein bisschen her, aber will trotzdem nochmal dazu was sagen:
Also das es an WM_SYSKEYDOWN liegt ist eher unwahrscheinlich.

Ich denke das Emil bestimmt in dem Message Handler auf IsDialogMessage zugreift?!
Wenn dem so ist, musst du VK_RETURN und die Pfeiltasten mit WM_GETDLGCODE abfangen!