Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TLabel + копирование. [D6, WinXP]


978658473 ©   (2002-09-01 12:28:00) 

Как можно создать TLabel таким, что с него можно было скопировать текст также, как в диалогах "Свойства файла"?


MazaFaka   (2002-09-01 13:31:00) [1]

Да ну, это слишком масштабно…
Проще будет с TMemo!
:
Memo.Color:=clBtnFace
Memo.BorderStyle:=bsNone
Memo.ReadOnly:=true

Вот как надо!


alena.svt   (2002-09-01 13:27:00) [2]

не ОРИГИНАЛЬНЕЙ будет снести с VCL dclstdX.bpl потом посмотреть исходники на TEDIT
Потом TLabel=class(TEDIT)

RegisterComponents("Standart",[TLabel]);
А потом
Label.Color:=clBtnFace
Label.BorderStyle:=bsNone
Label.ReadOnly:=true
Вот :))))))


MazaFaka   (2002-09-01 13:05:00) [3]

Та вы все неправы!
Нужно просто поставить на форму TEdit и сделать так:
Edit.Color:=clBtnFace
Edit.BorderStyle:=bsNone
Edit.ReadOnly:=true

Вуаля! Вот так вот! :))))))


Криворукий   (2002-09-01 13:01:00) [4]

Такой же, только с перламутровыми пуговицами?


alena.svt   (2002-09-01 12:46:00) [5]

А вдруг человек хочет Label!?


alena.svt   (2002-09-01 12:44:00) [6]

Ха


Lexa18   (2002-09-01 12:43:00) [7]

Ерунда! Просто надо немного подумать! Помещаешь на форму TEdit.
Затем устанавливаешь свойства:
TabStop:=false;
ReadOnly:=true;
Color:="цвет формы";
BorderStyle:=bsNone;

Вуаля!


Polevi   (2002-09-01 12:40:00) [8]

:-)


VID   (2002-09-01 12:40:00) [9]

упс :)


Polevi   (2002-09-01 12:39:00) [10]

это TEdit
Color:=clBtnFace
BorderStyle:=bsNone
ReadOnly:=true


VID   (2002-09-01 12:39:00) [11]

Открою тебе страшную тайну! :)
В диалоговом окне "Св-ва файла", для отображения значений свойств (некоторых, которые можно скопировать) используется TEDIT :)
Edit1.Color := clBtnFace;
Edit1.BorgerStyle := bsNone;


Наверх

Титульная страница Поиск, карта сайта Написать письмо