create label that can be selected and copied to clipboard

[oren 0]

As the topic say, I want to make a lablt that someone can select and copy..

GUICtrlCreateLabel("http://www.mysite.com",5,5)

Edited May 25, 2011 by oren

[Melba23 2,805]

oren,

Do you mean like this?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

$hGUI = GUICreate("Test", 500, 500)

GUICtrlCreateEdit("http://www.mysite.com", 10, 10, 200, 20, $ES_READONLY, $WS_EX_TOOLWINDOW)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Just needs a bit of lateral thinking.

M23

[oren 0]

Thank you..

I thought that maybe there is just a style to put in the label that I do not know...

Thank you

[Melba23 2,805]

oren,

It is not a label, it is an edit control - that is the trick.

M23

[UEZ 1,093]

Another way:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

$hGUI = GUICreate("Test", 500, 200)

$label = GUICtrlCreateLabel("http://www.mysite.com", 10, 10, 200, 20)
GUICtrlSetTip(-1, "Click on label to put link to clipboard")
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    $aM = GUIGetCursorInfo($hGUI)
    If $aM[2] And $aM[4] = $label Then
        If ClipPut(GUICtrlRead($label)) Then MsgBox(0, "Information", "Link put to clipboard", 5)
    EndIf
WEnd

Br,

UEZ