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

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

не ОРИГИНАЛЬНЕЙ будет снести с 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

Вот как надо!

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