Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249590 (11026)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Problem bei folgendem Quellcode
Marco Lenz
| Datum: 02.07.01 14:00 (MaLenz@gmx.net) |
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

| Zurück zur Übersicht