Hallo an alle :-)
Bei folgendem Quellcode reagiert Knopf 1 nicht wenn ich ihn mit der Maustaste anklicke .
Es liegt zum Teil daran das ich ein Dialogfenster verwende sowie die Tatsache das, daß übergeordnete Handle des 1. Knopf die Groupbox ist . Dies ist jedoch unbedingt notwendig für mich .
Wie also erreiche ich es, das der Knopf 1 nicht nur reagiert wenn sich der Focus drauf befindet und ich Enter drücke, sondern wenn ich direkt mit der Maus draufklicke .
(Bitte den Waitinput Befehl mit drin lassen .)
Ich sag jetzt schonmal Danke an alle, die sich damit befassen .
MFG Marco
www.MarcoLenz.de
'----------------------------------------------
$P+
SetErrorLevel 2
Declare appexit%
Declare GroupBox1&
Declare Button1&
Declare Button2&
Proc CreateMainMenu
Popup "&Datei"
AppendMenu 7,"&Ende"
Popup "&Hilfe"
AppendMenu 14,"&Über..."
EndProc
SetTrueColor 1
WindowStyle @add(16,512)
WindowTitle "DesignForm"
Window Add(%maxX,5),114 - 498,408
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Let GroupBox1&=CreateGroupBox(%hwnd,"GroupBox1",10,20,122,82)
Let Button1&=CreateButton(GroupBox1&,"Button1",30,50,75,25)
'SetWindowStyles Button1&,1409368065,0
Let Button2&=CreateButton(%hwnd,"Button2",140,50,75,25)
'SetWindowStyles Button2&,1409368064,0
SetWindowPos %hwnd = 207,114 - 498,408;0
WhileNot appexit%
WaitInput
If Equ(%key,2)
Let appexit%=1
ElseIf MenuItem(7)
'Menü Ende
let appexit%=1
ElseIf Getfocus(Button1&)
locate 1,1
print "Knopf 1"
ElseIf GetFocus(Button2&)
locate 1,1
print "Knopf 2"
ElseIf Equ(%key,4)
' Fenstergröße
ElseIf Equ(%key,5)
' Hilfe
EndIf
Wend
|