Hallo Rolf,
ich hab grad mal an meinem Programm weiter geschrieben und meine Tastenabfrage hat komplett gesponnen. Nachdem ich meine Änderungen rückgängig gemacht hatte, ging es immer noch nicht. Die Tastatur reagiert, wie wenn immer nur die gleiche Taste gedrückt wurde. Ich bin dann von der aktuellen 5.09.36 auf die 5.09.34 zurück und es ging wieder alles. Irgendwo ist da noch ein Fehler bei den Pipes.
Zu dem Process oben, hab ich nur noch das hier drin:
Function KeyPressed : Boolean; // Tastatur gedrückt?
Begin
If PipeStat(SwitchKeyPipe1)>0 // Tastatur-Pipe
then
Key:= tKey(PipeRecv(SwitchKeyPipe1)); // Pipe lesen
If Key>KeyDown
then
Return(false);
elsIf Key in anyKey
then
Return(true);
EndIf;
else
Return(false);
EndIf;
End KeyPressed;
Gruss
Harry
ich hab grad mal an meinem Programm weiter geschrieben und meine Tastenabfrage hat komplett gesponnen. Nachdem ich meine Änderungen rückgängig gemacht hatte, ging es immer noch nicht. Die Tastatur reagiert, wie wenn immer nur die gleiche Taste gedrückt wurde. Ich bin dann von der aktuellen 5.09.36 auf die 5.09.34 zurück und es ging wieder alles. Irgendwo ist da noch ein Fehler bei den Pipes.
Zu dem Process oben, hab ich nur noch das hier drin:
Code
Function KeyPressed : Boolean; // Tastatur gedrückt?
Begin
If PipeStat(SwitchKeyPipe1)>0 // Tastatur-Pipe
then
Key:= tKey(PipeRecv(SwitchKeyPipe1)); // Pipe lesen
If Key>KeyDown
then
Return(false);
elsIf Key in anyKey
then
Return(true);
EndIf;
else
Return(false);
EndIf;
End KeyPressed;
Gruss
Harry