VPF::Запретить удаление символов из Memo

Recev

Дата 26.11.2010, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 18.10.2010

Репутация: нет
Всего: нет

Как запретить удаление символов из memo ?
Нужно чтобы пользователь мог вводить символы, а удалять не мог.

Добавлено через 1 минуту и 18 секунд
OnKeyDown использовать нельзя.

aleksh

Дата 29.11.2010, 09:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 3
Всего: 13

запретить именно в графической части или просто сделать так, чтобы не один введенный символ не потерялся?

imageman

Дата 29.11.2010, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 30.9.2004

Репутация: 1
Всего: 1

Посмотри свойство ReadOnly smile

aleksh

Дата 29.11.2010, 10:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 3
Всего: 13

Цитата(imageman @ 29.11.2010, 10:18

)

Посмотри свойство ReadOnly

Цитата(Recev @ 26.11.2010, 21:05

)

Нужно чтобы пользователь мог вводить символы

Romikgy

Дата 3.12.2010, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

наверное тогда фильтровать сообщения винды при нажатии на кнопки и убирать мессаги о кнопках дел и бекспейс

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

aleksh

Дата 3.12.2010, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 3
Всего: 13

Цитата(Romikgy @ 3.12.2010, 14:35

)

и убирать мессаги о кнопках дел и бекспейс

а если выделить текст и вырезать?

Poseidon

Дата 3.12.2010, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Recev @ 26.11.2010, 21:05

)

OnKeyDown использовать нельзя.

Почему? Можно узнать? OnKeyPress можно?

Цитата(aleksh @ 3.12.2010, 15:00

)

а если выделить текст и вырезать?

Тогда еще и WM_CUT отлавливать smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Snowy

Дата 3.12.2010, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

А, если выделить текст и нажать пробел? smile

remax

Дата 3.12.2010, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: 1
Всего: 5

Цитата(Poseidon @ 3.12.2010, 16:30)

Цитата(Recev @ 26.11.2010, 21:05

)

OnKeyDown использовать нельзя.

Почему? Можно узнать? OnKeyPress можно?

Цитата(aleksh @ 3.12.2010, 15:00

)

а если выделить текст и вырезать?

Тогда еще и WM_CUT отлавливать smile

Да, надо понять четкие требования. Судя по всему, это какая-то учебная задача (раз есть какие-то дурацкие ограничения). Т.е., она должна быть на определенную тему. И вариантов тут множество. Например, если это на наследование, то, возможно, надо создать потомка TCustomMemo и переопределить в нем метод KeyPress. ТС должен уточнить задание, чтобы не выглядеть глупо, даже с крутейшей идеей ...

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

Snowy

Дата 3.12.2010, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

На Memo1.OnChange вешаем код

Код

begin
  if Length(Memo1.Text) < lenin then Memo1.Perform(EM_UNDO, 0, 0)
  else lenin := Length(Memo1.Text);
end;

где lenin - private переменная, типа integer;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »