Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249590 (11026)
  Suchen
 Zurück zur Übersicht
 AutorThema: Problem bei folgendem Quellcode
Marco Lenz
Datum: 02.07.01 14:00 Antwortenals Email verschicken (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