鼠标在GDI窗体上任何地方点一下，Progress1就停止运行，怎么才能做到

leewger

一个窗体上有radio1,radio2,Progress1和一个button1控件

运行后，Progress1可以自动运行，运行结束后执行BUTTON1

我的问题是
鼠标在窗体上任何地方点一下，Progress1立即停止自动运行

键盘的任何一键或者说是空格键，选择radio1,radio2的箭头键，一动作，Progress1也停止运行

这个怎么做到

[ 本帖最后由 leewger 于 2008-6-14 10:52 编辑 ]

bing614

我只能用系统消息来完成。希望能有更多方法.
[au3]#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$WM_LBUTTONDOWN=0x0201
$Form1 = GUICreate("Form1", 300, 153, -1,-1,$WS_CLIPSIBLINGS)
GUIRegisterMsg ($WM_LBUTTONDOWN, "WM_LBUTTONDOWN" )
GUIRegisterMsg ($WM_KEYDOWN, "WM_KEYDOWN" )
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd
Func WM_LBUTTONDOWN($hWndGUI, $MsgID, $WParam, $LParam)
        TrayTip("新鼠标事件","产生时间:" &@HOUR&":"&@MIN&":"&@SEC & @CRLF & $hWndGUI & " - " & $MsgID & " - " &  $WParam  & " - " & $LParam ,10)
        Return 1
EndFunc
Func WM_KEYDOWN($hWndGUI, $MsgID, $WParam, $LParam)
        TrayTip("新键盘事件","产生时间:" &@HOUR&":"&@MIN&":"&@SEC & @CRLF & $hWndGUI & " - " & $MsgID & " - " &  $WParam  & " - " & $LParam ,10)
        Return 1
EndFunc[/au3]

leewger

知道怎么用了，谢谢

19791111

Case $Msg = $GUI_EVENT_PRIMARYDOWN