自然 发表于 2012-6-28 00:53:52

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

本帖最后由 自然 于 2012-6-28 09:03 编辑

各位大大:
如何做到鼠标右键点击输入框清空原有内容并粘贴已复制好的内容?#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 发表于 2012-6-28 08:29:00

回复 1# 自然

在主循环里放入下面代码就可以了.      $nMouse = GUIGetCursorInfo($Form1)
                If $nMouse = $Input1 And $nMouse = 1 Then GUICtrlSetData($Input1, ClipGet())

xz00311 发表于 2012-6-28 09:24:11

都不知道放那里楼主把你原来的代码填好吗
页: [1]
查看完整版本: 请教输入框鼠标右键点击问题(已解决)