请教输入框鼠标右键点击问题(已解决)

自然

各位大大：
如何做到鼠标右键点击输入框清空原有内容并粘贴已复制好的内容？

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 419, 234, 192, 124)
$Input1 = GUICtrlCreateInput("如何在此点击鼠标右键清空原有文字并粘贴已复制好的内容？", 24, 64, 353, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

user3000

回复 1# 自然

在主循环里放入下面代码就可以了.

        $nMouse = GUIGetCursorInfo($Form1)
                If $nMouse[4] = $Input1 And $nMouse[3] = 1 Then GUICtrlSetData($Input1, ClipGet())

xz00311

都不知道放那里楼主把你原来的代码填好吗