• Registered: 2014-05-23
  • Posts: 114

Topic: Label выделение текста

День добрый, как то можно реализовать выделение надписи лейбела, допустим чтобы скопировать в буфер

  • Registered: 2014-05-23
  • Posts: 114

Re: Label выделение текста

Или сделать на форме что то наподобии гиперссылки без использования таблиц

3 Reply by alex842 (edited by alex842 2014-12-12 20:52:56)

  • Registered: 2014-05-21
  • Posts: 108

Re: Label выделение текста

mitrich45 wrote:

Или сделать на форме что то наподобии гиперссылки без использования таблиц

Нужна ссылка на сайт? Если да, то можно сделать так: 

OpenURL(Form1.Label1.Caption);  //URL находится в надписи и будет открыто в браузере по умолчанию.

Код можно поместить в любое событие, хоть самого лейбла, хоть отдельной кнопки, напр., OnClick, OnDoubleClick.

П.С.
Если же нужно скопировать текст в буфер обмена, то можно поместить на форме скрытый компонент TEdit.
Затем пишем примерно такой код, напр., в событие OnClick самого лейбла, в котором находится адрес:

  Form1.Edit1.Text:= Form1.Label1.Caption; //Помещаем текст лейбла в текстовое поле.
  Form1.Edit1.SelectAll; //выделяем весь текст
  Form1.Edit1.CopyToClipBoard; //копируем в буфер
  • Registered: 2014-05-23
  • Posts: 114

Re: Label выделение текста

Спасибо! Сегодня попробую, да хочу сделать что то на подобии интерактивной справки по программе

5 Reply by mitrich45 (edited by mitrich45 2014-12-15 09:36:29)

  • Registered: 2014-05-23
  • Posts: 114

Re: Label выделение текста

alex842 wrote:
  Form1.Edit1.Text:= Form1.Label1.Caption; //Помещаем текст лейбла в текстовое поле.
  Form1.Edit1.SelectAll; //выделяем весь текст
  Form1.Edit1.CopyToClipBoard; //копируем в буфер

Видимо CopyToClipBoard не работает в 1.46 версии (пишет Undeclared идентификатор)

  • Registered: 2014-05-23
  • Posts: 114

Re: Label выделение текста

Извините соврал) Заработало, забыл точку) Спасибо alex