Запрет на выделение в TMemo

← →
3dAnatomy (2008-08-07 16:37) [0]

Уважаемые! Подскажите,кто знает, как сделать так, чтобы в Memo нельзя было редактировать (даже выделять нельзя) текст? Просто статический текст! Спасибо за любой отзыв.

← →
Rouse_ © (2008-08-07 16:44) [1]

на OnEnter отдавай фокус другому контролу (который естесвенно может принять фокус), например:

procedure TForm1.Memo1Enter(Sender: TObject); begin Button1.SetFocus; end;

← →
Сергей М. © (2008-08-07 17:02) [2]

> 3dAnatomy (07.08.08 16:37)

Enabled = False разве не устроит ?

← →
_Milk (2008-08-07 17:05) [3]

> 3dAnatomy (07.08.08 16:37)

> Подскажите,кто знает, как сделать так, чтобы в Memo нельзя
> было редактировать (даже выделять нельзя) текст?

Ну, а зачем тебе при таком подходе понадобился TMemo, используй обычный TLabel:(

← →
{RASkov} © (2008-08-07 17:48) [4]

> [3] _Milk (07.08.08 17:05)

Неа, в метках автор уже добавил возможность выделения и редактирования текста... так что не катит :)

← →
3dAnatomy (2008-08-08 10:57) [5]

_Milk Не TLabel - потому, что текста довольно много.
Enabled = False разве не устроит ? - к сожалению, не устроит.
Всем спасибо!!!

← →
{RASkov} © (2008-08-08 12:18) [6]

> [5] 3dAnatomy (08.08.08 10:57)
> _Milk Не TLabel - потому, что текста довольно много.
> Enabled = False разве не устроит ? - к сожалению, не устроит.

Нужна прокрутка текста?
Брось метку на скролбокс...

← →
Плохиш © (2008-08-08 12:22) [7]

Может ReadOnly спасёт отца русской демократии?

← →
{RASkov} © (2008-08-08 12:27) [8]

> [7] Плохиш © (08.08.08 12:22)

Выделять можно будет, а автору это вроде как не нужно

> (даже выделять нельзя)

← →
User (2008-08-08 12:33) [9]

... if Memo1.Focused then Button1.SetFocus ?

← →
{RASkov} © (2008-08-08 12:49) [10]

> [9] User (08.08.08 12:33)

на таймер? :)

← →
brother © (2008-08-08 12:52) [11]

Button1.SetFocus
на onclik в memo... ;)

← →
Vlad Oshin © (2008-08-08 13:55) [12]

а если дернут картинку и подсунут файнридеру?
надо сразу распечатывать текст на принтер

← →
User (2008-08-08 14:19) [13]

тогда -
procedure TMain1.FormShow(Sender: TObject); begin application.Terminate end;
;-)

← →
Vlad Oshin © (2008-08-08 14:24) [14]

А если хакер откроет dasmом?

вот:
program Project1;
begin
end.

← →
Johnmen © (2008-08-08 14:26) [15]

Тут без пары-тройки потоков не обойтись...

← →
Vlad Oshin © (2008-08-08 14:28) [16]

из моего раннего..

Вчера написал программу . Абсолютную.
Абсолютно без ошибок.
Абсолютно без единой строчки кода ,
абсолютно не занимающую места,
абсолютно никак не называющуюся
и абсолютно никому не нужную.
Никому.
Абсолютно.
Думаю, вот теперь: доделывать или и так пойдет…

← →
{RASkov} © (2008-08-08 14:29) [17]

> Тут без пары-тройки потоков не обойтись...

При чем один из них и запускать-то не нужно.... просто его присутствие необходимо....

← →
3dAnatomy (2008-08-08 16:15) [18]

Vlad Oshin > Не собираюсь защищать я этот текст, неправильно наверное поняли! Это просто каприз интерфейса просящего наваять сие.

Берем ScrollBox, кидаем на него PaintBox и в OnPaint последнего выводим текст вручную. Подойдет?

ну, конечно.. сейчас начнете отпираться, говорить " я не брал", не помню, не было такого..
:)

> Enabled = False разве не устроит

почему же не устроит?
Мне кажется все надуманно у Вас..

Если нужен скроллинг, то при Enabled = False он работать не будет.

← →
User (2008-08-08 18:07) [23]

Запрет выделения по-честному нужен, или так сойдет?

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;

Запрет на выделение в TMemo Найти похожие ветки