Hallo Freunde,
ich wollte mein Programm mit Hotkeys realisieren, aber jetzt klappt gar nichtsmehr!!!!
Declare Taste1%, Taste2%, Taste3%, Taste4%, Taste5%, Taste9%
Declare Ausgabe$, Schleife%, Wert!, hilf%
Window 520, 410
'WindowStyle 512
WindowTitle "RECHNER"
Proc ClearZeile 'Ausgabezeile Löschen
DrawText 450,10," X",2
EndProc
Taste1% = Create("Button",%hwnd,"1", 20,190,90,30)
Taste2% = Create("Button",%hwnd,"2", 115,190,90,30)
Taste3% = Create("Button",%hwnd,"3", 210,190,90,30)
Taste4% = Create("Button",%hwnd,"4", 305,190,90,30)
Taste5% = Create("Button",%hwnd,"5", 400,190,90,30)
AddHotKey 1, 49, 0 'hotkey für 1
AddHotKey 4, 27, 0 'hotkey für esc
Schleife% = 0
WhileNot Schleife%
WaitInput
hilf% = %getfocus
Taste9% = Taste1%
$D "Hinweistext",hilf%, Taste9%
If Clicked(Taste1%)
ClearZeile
Ausgabe$= "%%%%"
Ausgabe$=Ausgabe$ +"1"
DrawText 450,10,Ausgabe$,2
$D "Hinweistext",Ausgabe$
ElseIf Clicked(Taste2%)
ClearZeile
Ausgabe$=Ausgabe$ +"2"
Wert!= Ausgabe$+"2"
Ausgabe$=Ausgabe$ +
ElseIf %menuitem = 1 'taste 1 gedrückt (Hauptfeld)
DrawText 450,10, "Taste -1- gedrückt",2
ElseIf %menuitem = 4 'esc zum beenden
DrawText 450,10, "Taste -Esc- gedrückt",2
Schleife%= 1
EndIf
EndWhile
Alles anzeigen
die Variable hilf% zeigt mir wer den Focus hat. und start9% zeigt mir Button 1, klickte ich aber mit der Maus auf Button1 wird
Button1 If Clicked(Taste1%) nicht abgearbeitet -drücke ich die Taste 1 oder ESC wird beides korrekt abgearbeitet