| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запрет на выделение в TMemo [Delphi]
3dAnatomy © (2008-08-07 16:37:00)Уважаемые! Подскажите,кто знает, как сделать так, чтобы в Memo нельзя было редактировать (даже выделять нельзя) текст? Просто статический текст! Спасибо за любой отзыв.
Virgo_Style (2008-08-09 16:11:00) [1]Запрет выделения по-честному нужен, или так сойдет?
procedure TForm3.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Memo1.SelLength := 0;
end;
procedure TForm3.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Memo1.SelLength := 0;
end;
User (2008-08-08 18:07:00) [2]... вариант > Rouse_ © (07.08.08 16:44) [1]работает по-любому ...
{RASkov} (2008-08-08 17:22:00) [3]> [20] Vlad Oshin © (08.08.08 17:18)
> почему же не устроит?
Прокрутки текста нет? :)
Amoeba (2008-08-08 17:21:00) [4]Если нужен скроллинг, то при Enabled = False он работать не будет.
Vlad Oshin (2008-08-08 17:18:00) [5]ну, конечно.. сейчас начнете отпираться, говорить " я не брал", не помню, не было такого..
:)
> Enabled = False разве не устроит
почему же не устроит?
Мне кажется все надуманно у Вас..
Amoeba (2008-08-08 17:15:00) [6]Берем ScrollBox, кидаем на него PaintBox и в OnPaint последнего выводим текст вручную. Подойдет?
3dAnatomy (2008-08-08 16:15:00) [7]Vlad Oshin > Не собираюсь защищать я этот текст, неправильно наверное поняли! Это просто каприз интерфейса просящего наваять сие.
{RASkov} (2008-08-08 14:29:00) [8]> Тут без пары-тройки потоков не обойтись...
При чем один из них и запускать-то не нужно.... просто его присутствие необходимо....
Vlad Oshin (2008-08-08 14:28:00) [9]из моего раннего..
Вчера написал программу . Абсолютную.
Абсолютно без ошибок.
Абсолютно без единой строчки кода ,
абсолютно не занимающую места,
абсолютно никак не называющуюся
и абсолютно никому не нужную.
Никому.
Абсолютно.
Думаю, вот теперь: доделывать или и так пойдет…
Johnmen (2008-08-08 14:26:00) [10]Тут без пары-тройки потоков не обойтись...
Vlad Oshin (2008-08-08 14:24:00) [11]А если хакер откроет dasmом?
вот:
program Project1;
begin
end.
User (2008-08-08 14:19:00) [12]тогда -
procedure TMain1.FormShow(Sender: TObject);
begin
application.Terminate
end;
;-)
Vlad Oshin (2008-08-08 13:55:00) [13]а если дернут картинку и подсунут файнридеру?
надо сразу распечатывать текст на принтер
brother (2008-08-08 12:52:00) [14]Button1.SetFocus
на onclik в memo... ;)
{RASkov} (2008-08-08 12:49:00) [15]> [9] User (08.08.08 12:33)
на таймер? :)
User (2008-08-08 12:33:00) [16]...
if Memo1.Focused then Button1.SetFocus?
{RASkov} (2008-08-08 12:27:00) [17]> [7] Плохиш © (08.08.08 12:22)
Выделять можно будет, а автору это вроде как не нужно
> (даже выделять нельзя)
Плохиш (2008-08-08 12:22:00) [18]Может ReadOnly спасёт отца русской демократии?
{RASkov} (2008-08-08 12:18:00) [19]> [5] 3dAnatomy (08.08.08 10:57)
> _Milk Не TLabel - потому, что текста довольно много.
> Enabled = False разве не устроит ? - к сожалению, не устроит.
Нужна прокрутка текста?
Брось метку на скролбокс...
3dAnatomy (2008-08-08 10:57:00) [20]_MilkНе TLabel - потому, что текста довольно много.
Enabled = False разве не устроит ?- к сожалению, не устроит.
Всем спасибо!!!
| |
Страницы: 