Wie kann ich es machen das die controls mit der maus anwählbar bleiben ?
Spoiler anzeigen
profilfinder()
func profilfinder ()
$Form1_1 = GUICreate("GUI", 965, 759, 284, 122, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_MAXIMIZE,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
$MenuItem4 = GUICtrlCreateMenu("&Datei")
$MenuItem3 = GUICtrlCreateMenu("&Bearbeiten")
$MenuItem2 = GUICtrlCreateMenu("&Optionen")
$MenuItem1 = GUICtrlCreateMenu("&Hilfe")
GUISetIcon("N:\neu.exe")
GUISetBkColor(0xFFFFFF)
$Text_Progname = GUICtrlCreateLabel("Profilsuche", 282, 48, 314, 30)
GUICtrlSetFont(-1, 16, 800, 0, "MS Reference Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Pic2 = GUICtrlSetImage("C:\Users\User\Pictures\Roto_übersicht2.bmp", 3, 153, 956, 502, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Geben Sie bitte die benötigten Maße an:", 12, 129, 195, 17)
$Input1 = GUICtrlCreateInput("Flügel BT", 6, 327, 85, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER))
GUICtrlSetBkColor(-1, 0xFFFF00)
$Input2 = GUICtrlCreateInput("Überschl. Breite", 519, 591, 85, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER))
GUICtrlSetBkColor(-1, 0xFFFF00)
$Input3 = GUICtrlCreateInput("Bl.R. Freimaß", 642, 591, 85, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER))
GUICtrlSetBkColor(-1, 0xFFFF00)
$Input4 = GUICtrlCreateInput("Überschl. Überd.", 564, 555, 85, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER))
GUICtrlSetBkColor(-1, 0xFFFF00)
$Input5 = GUICtrlCreateInput("Kammermaß", 516, 393, 85, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER))
GUICtrlSetBkColor(-1, 0xFFFF00)
$Input6 = GUICtrlCreateInput("Rahmen BT", 834, 306, 85, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER))
GUICtrlSetBkColor(-1, 0xFFFF00)
$Input7 = GUICtrlCreateInput("Beschlagachse", 879, 420, 85, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER))
GUICtrlSetBkColor(-1, 0xFFFF00)
$Input8 = GUICtrlCreateInput("Falzluft", 516, 360, 85, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER))
GUICtrlSetBkColor(-1, 0xFFFF00)
$Input9 = GUICtrlCreateInput("Überschl.höhe", 627, 471, 85, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER))
GUICtrlSetBkColor(-1, 0xFFFF00)
$Profil_finden = GUICtrlCreateButton("Profil finden", 21, 585, 99, 25, $WS_GROUP)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 129, 585, 99, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete()
GUISetState (@SW_ENABLE,$Form1)
ExitLoop
Case $Input1
Case $Input2
Case $Input3
Case $Input4
Case $Input5
Case $Input6
Case $Input7
Case $Input8
Case $Input9
Case $Profil_finden
profilliste()
Case $Abbrechen
EndSwitch
WEnd
EndFunc