Ich habe 1992 mein Dispoprogramm unter Clipper geschrieben, und 1996 auf Xbase++ umgestellt.
Ich benutze die F1 Taste für die Dispoliste ( Tbrowse der erfassten Daten )
und bis heute funktioniert die F1 Taste, so wie ich es wollte.
Ich habe hier im Forum gesucht wegen Event und Tastatur, dabei bin ich darauf gestoßen, das die F1 Taste nicht für eigene Zwecke benutzt werden könnte.
Ich hatte das damals so realisiert.
Code: Alles auswählen
while .t. // Endlosschleife starten
taste1:= AppEvent( @mp1, @mp2, , 0)
do case // Kontrollstruktur / Abfrage der Tasten
case taste1 = xbeK_F1
//K_F1 // Taste F1 gedrückt
wselect(fenster1) // Fensterbereich auswählen
wselect(0)
ansicht()
// dislist() // Ext. Modul starten
wselect(fenster1) // Fensterbereich auswählen
startbild() // Ext. Modul starten
case taste1 = xbeK_ALT_F1 // Taste ALT + F1 gedrückt
firmpara() // Ext. Modul starten
case taste1 = xbeK_F2 // Taste F2 gedrückt
select arbeit
go bottom // Ans Ende - Datenbank
eing01() // Ext. Modul starten
case taste1 = xbeK_F10 .or. taste1=xbeP_Close .or. taste1= xbeK_ESC // Taste F10 gedrckt
appquit()
endcase // Kontollstrukturabschluß
enddo // Schleifenabschluß
return // Prozedurabschluß
Dieses Programm läuft unter allen Xbase++ Versionen einschließlich 1.9.355
Niemals ein Absturz oder Fehlermeldung wegen F1 !
30 Jahre Glück ?