Скачать: CL | DM;

TLabel + копирование.   Найти похожие ветки 

← →
978658473   (2002-09-01 12:28) [0]

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

---

← →
Polevi ©   (2002-09-01 12:39) [1]

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

---

← →
VID ©   (2002-09-01 12:39) [2]

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

---

← →
Polevi ©   (2002-09-01 12:40) [3]

:-)

---

← →
VID ©   (2002-09-01 12:40) [4]

упс :)

---

← →
Lexa18   (2002-09-01 12:43) [5]

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

Вуаля!

---

← →
alena.svt ©   (2002-09-01 12:44) [6]

Ха

---

← →
alena.svt ©   (2002-09-01 12:46) [7]

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

---

← →
Криворукий   (2002-09-01 13:01) [8]

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

---

← →
MazaFaka   (2002-09-01 13:05) [9]

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

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

---

← →
alena.svt ©   (2002-09-01 13:27) [10]

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

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

---

← →
MazaFaka   (2002-09-01 13:31) [11]

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

Вот как надо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.018 c