une action est également affectées au label, qui est également déplacable.
► Afficher le texte
Code : Tout sélectionner
#include<Array.au3>
Opt("MouseCoordMode", 2)
Opt("guioneventmode", 1)
Global $cHoverID[2], $Global_cHID = 0, $cHoverActive = 0, $cHClicked = 0
$Gui = GUICreate("Drag Gui", 500, 200)
AdlibEnable("_CheckPressed", 10)
$DragLabel = GUICtrlCreateLabel("Dragable Label", 10, 10, 80, 15)
$Ok = GUICtrlCreateButton("OK", 10, 100, 100, 20)
$Cancel = GUICtrlCreateButton("Annuler", 10, 140, 100, 20)
$Lock = GUICtrlCreateButton("Débloquer les contrôles", 150, 10)
$FlagMove = 0
_ControlHover(2, $Gui, $DragLabel)
_ControlHover(2, $Gui, $Ok)
_ControlHover(2, $Gui, $Cancel)
_ControlHover(2, $Gui, $Lock)
GUISetState()
GUISetOnEvent(-3, "_Exit")
While 1
Sleep(10)
WEnd
Func _CheckPressed()
_ControlHover(0, $Gui)
$CtrlId2 = _ControlHover(1, $Gui)
$tempID2 = @extended
If $CtrlId2 = 1 Then
;ToolTip($tempID2, 0, 0, "DEBUG")
If $FlagMove = 1 Then
Switch $tempID2
Case $DragLabel
MoveControl(3)
Case $Ok
MoveControl(4)
Case $Cancel
MoveControl(5)
Case $Lock
GUICtrlSetData(6, "Débloquer les contrôles")
$FlagMove = 0
EndSwitch
Else
Switch $tempID2
Case $DragLabel
MsgBox(0, 'Test', 'Label', 2)
Case $Ok
MsgBox(0, 'Test', 'Ok', 2)
Case $Cancel
MsgBox(0, 'Test', 'Annuler', 2)
Case $Lock
GUICtrlSetData(6, "Bloquer les contrôles")
$FlagMove = 1
EndSwitch
EndIf
EndIf
EndFunc ;==>_CheckPressed
Func MoveControl($ID2Move)
Do
$Move = GUIGetCursorInfo()
$mousepos = MouseGetPos()
GUICtrlSetPos($ID2Move, $mousepos[0] - 40, $mousepos[1] - 10)
Sleep(10)
Until $Move[2] = 0
EndFunc ;==>MoveControl
Func _Exit()
AdlibDisable()
Exit
EndFunc ;==>_Exit
;===============================================================================
;
; Function Name: _ControlHover()
; Description: Enable Mouse/Hover Over Control Events
; Find if Mouse is over a known control
; Find if a Mouse has Clicked on a known control
; Add, Remove, or Verify the control within the known control list
; Parameter(s): $cH_Mode [default] 0 = Find if Mouse is over a known control
; [optional] 1 = Find if a Mouse has Clicked on a known control
; 2 = Add a control to the known control list
; 3 = Remove a control from the known control list
; 4 = Verify a control is in the known control list
; $cH_hWin [optional] - Window handle as returned by GUICreate()
; [preferred] - Window handle to save CPU usage and speed of _ControlHover()
; - and Avoid array errors for "non-active window"
; $cH_hCntrl [required] - Control ID to Add, Remove, or Verify the control within the known control list
; [not used] - to find if a mouse is over or has clicked on a known control
; Requirement(s): #include<Array.au3>
; Return Value(s):
; $cH_Mode 0 or 1
; On Success Return = 1 @error = 0, @extended = Current known control
; While Success Return = ""
; On Failure: Return = 0 @error = 1, @extended = Last known control
; $cH_Mode 2, 3, or 4
; On Success Return = 1 @error = 0, @extended = Function's return line number
; All $cH_Mode's
; On Error: Return = Description of the error
; @error = -1, @extended = Function's return line number
; Author(s): Valuater, Robert M
;
;===============================================================================
Func _ControlHover($cH_Mode = 0, $cH_hWin = "", $cH_hCntrl = "")
Local $cH_i, $cH_Data
If not @Compiled Then Opt("TrayIconDebug", 1) ; 1=debug line info
Select
Case $cH_Mode = 0 Or $cH_Mode = 1 ; 0 = Check if mouse is over a control, 1 = Check if mouse clicked on a control
; Developer did not add any controls before the function mode 0 or 1 was called
If UBound($cHoverID) = 2 Then ConsoleWrite("*** _ControlHover() Error *** " & @CRLF & "No Controls were Added" & @CRLF)
If $cH_hWin = "" Then
$cH_Data = GUIGetCursorInfo() ; Get cursor data from the active window
Else
If Not WinActive($cH_hWin) Then Return SetError( -1, 1, "Window not active") ; Dont waist CPU if the known window is not active
$cH_Data = GUIGetCursorInfo($cH_hWin) ; Get cursor data from the known window
EndIf
If Not IsArray($cH_Data) Then Return SetError( -1, 2, "Window not found") ; A readable GUI window was not found
For $cH_i = 1 to UBound($cHoverID) -1 ; Search the known controls for the currently hovered control
If $cH_Data[4] = $cHoverID[$cH_i] Then ; Mouse is over a current known control
; Mode 1 - check for a Click on a known control
If $cH_Mode And $cH_Data[2] = 1 and Not $cHClicked Then
$cHClicked = 1
Return SetError( 0, $cHoverID[$Global_cHID], 1) ; Mouse clicked on current control
ElseIf $cH_Mode And $cH_Data[2] <> 1 And $cHClicked Then
$cHClicked = 0
Return SetError( 1, $cHoverID[$Global_cHID], 0) ; Release clicked current control
EndIf
If $cH_Mode Then Return SetError ( "", "", "") ; Mouse is still over last known control and may click again
; Mode 0 & 1
If $cHoverID[$cH_i] = $cHoverID[$Global_cHID] And $cHoverActive Then Return SetError ( "", "", "") ; Mouse is still over last known control
If $cHoverActive Then
$cHoverActive = 0
Return SetError( 1, $cHoverID[$Global_cHID], 0) ; Release Active - Mouse is over a new known control
EndIf
$cHoverActive = 1
$cHoverID[$Global_cHID] = $cHoverID[$cH_i] ; Re-set the current control to the new known control
Return SetError(0, $cHoverID[$Global_cHID], 1) ; Mouse is over the new-current known control
EndIf
Next
; hover control not found in the known control list
If $cHoverActive Then
If $cH_Mode And $cHClicked Then ; check - Release clicked current control
$cHClicked = 0
Return SetError( 1, $cHoverID[$Global_cHID], 0) ; Release clicked current control
EndIf
If $cH_Mode Then Return SetError ( "", "", "") ; Protect the release of the active control
$cHoverActive = 0
Return SetError( 1, $cHoverID[$Global_cHID], 0) ; Release Active - Mouse is over a new unknown control
EndIf
If $cH_Mode And $cHClicked Then
$cHClicked = 0
Return SetError( 1, $cHoverID[$Global_cHID], 0) ; Release clicked current control
EndIf
Return SetError ( "", "", "")
Case $cH_Mode = 2 ; Add the new control to the known control list
If $cH_hCntrl = "" Then Return SetError( -1, 8, "Control not provided #1") ; The control ID was not given
_ArrayAdd($cHoverID, $cH_hCntrl) ; Add the control to the known control array
If @error Then Return SetError( -1, 9, "Control not added") ; Control not added to the known control list
Return SetError( 0, 10, 1) ; ; Control was added to the known control list
Case $cH_Mode = 3 ; Remove the control from the known control list
If $cH_hCntrl = "" Then Return SetError( -1, 11, "Control not provided #2") ; The control ID was not given
_ArrayDelete($cHoverID, $cH_hCntrl) ; Delete the control from the known control array list
If @error Then Return SetError( -1, 12, "Control not removed") ; Control not deleted from the known control list
Return SetError( 0, 13, 1) ; Control was deleted from the known control list
Case $cH_Mode = 4 ; Verify if control is in the known control list
If $cH_hCntrl = "" Then Return SetError( -1, 14, "Control not provided #3") ; The control ID was not given
_ArraySearch($cHoverID, $cH_hCntrl) ; Search to verify if control is in the known control list
If @error Then Return SetError( -1, 15, "Control not found") ; Control was not found in the known control list
Return SetError( 0, 16, 1) ; Control was found in the known control list
Case Else
Return SetError( -1, 17, "$cH_Mode incorrect") ; $cH_Mode has an incorrect value
EndSelect
Return SetError( -1, 18, "Unknown Error") ; Error is Unknown
EndFunc
