ExamineKeyboard-Frage/Problem

[garfield9992003]

Ich bin fast Bestens zufrieden mit PB4 Beta.

Aber eine Änderung verstehe ich noch nicht so wirklich.

Früher hatte ich in einer CallBack-Funktion den Tastaturstatus wie folgt abgefragt (PB3):

Code: Alles auswählen

Procedure FN_CALLBACK(code.l, dwParam.l)
  cstring.s
  Select code 
    Case 0
      cstring="blabla"
      r=#RET_SUCCESS
    Case 1
      cstring="(ESC=Abbruch): "
      ExamineKeyboard()
      If KeyboardPushed(#PB_Key_Escape)
        r=#RET_ABORT
      Else 
        r=#RET_SUCCESS
      EndIf
  EndSelect
  If GetGadgetText(#Status)<>cstring
    SetGadgetText(#Status,cstring)
  EndIf
  UpdateWindow_(WindowID(#Fenster))
  ProcedureReturn r
EndProcedure

Beim Programmstart schmückte noch ein "InitKeyboard()" den Code.

Nun funktioniert ExamineKeyboard jedoch nicht mehr so und er/es verlangt noch ein OpenScreen...

Was nehm ich nun in PB4 als Alternative? Mit KeyState-APIs bekomme ich ja nur den gerade aktuellen Zustand der Taste und ExamineKeyboard liest ja den Key aus dem Keyboard-Buffer ein, oder irre ich?

Grüsse

Frank

[garfield9992003]

Hat keiner eine Idee?

Openscreen() or OpenWindowScreen() must be called before use the keyboard commands.

So heisst die Debug-Fehlermeldung... bei PB3 ohne Probs und bei PB4 nun einen Openscreen-Wunsch, obwohl ich die Tastenabfrage nur in einer Funktion nutzen mag.... doch auf API ausweichen?!

Grüsse

Frank

[nco2k]

GetAsyncKeyState_()

http://msdn.microsoft.com/library/defau ... ystate.asp

c ya,
nco2k

[Andre]

Mit PB-Boardmitteln:
Schau Dir mal AddKeyBoardShortcut() an