Текущий архив: 2002.09.12;
Скачать: 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 вся ветка
Текущий архив: 2002.09.12;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.022 c
