Удаление из TEdit

← →
yaric (2004-09-23 17:46) [0]

Народ подскажите пожалуйста как мне реализовать такой механизм при работе с TEdit, а именно запретить удалять из него некоторые символы например буквы латиницы, а все остальные символы если они присутствуют в строке, которая находится в TEdit.Text удалять можно.

← →
Fay © (2004-09-23 17:47) [1]

TMaskEdit ?

← →
yaric (2004-09-23 17:48) [2]

Нет добавлять пользователь может а вот удалять нет

← →
Fay © (2004-09-23 17:50) [3]

Блин! Даже не могу представить - нафинг это надо? 8)

← →
yaric (2004-09-23 17:52) [4]

Да надо в TEdit.Text прога заносит некоторые символы, а некоторые заносит пользователь так вот нужно чтобы пользователь не стер то чего прога занесла

← →
Amoeba © (2004-09-23 17:54) [5]

А как собираешься отличать занесенное прогой от занесенного пользователем?

← →
Sandman25 © (2004-09-23 17:55) [6]

Разбить на label и edit. Возможно на несколько.

← →
yaric (2004-09-23 17:55) [7]

Разные диапазоны кодов символов

← →
yaric (2004-09-23 17:57) [8]

Ну это в смысле как различать буду,
а про label и edit я не понял текст ведь сплошной

← →
Amoeba © (2004-09-23 17:59) [9]

Невозможно запертить удаление символов только для определенного диапазона. Действует принцип "всё или ничего".

← →
yaric (2004-09-23 18:01) [10]

Может как то событие какое-то виндозное ловить и взависимости от того какой код символа лупить его или нет

← →
Amoeba © (2004-09-23 18:07) [11]

Запретить/разрешить ввод определенных символов - задача элементарная, причем никаких сообщений ловить не надо (все делается на уровне обработчиков событий компонента). А выборочный запрет удаления - это уже совсем другое.

← →
Anatoly Podgoretsky © (2004-09-23 18:34) [12]

Бедные, бедные пользователи, как только программисты над ними не издеваются.

← →
МЯУ (2004-09-23 18:34) [13]

а че, onkeydown не пойдёт?
сморим символ перед курсором если backspace и за курсором, если delete. проверяем диапазон, или чё там ещё. если низя - запрещаем. можно - разрешаем.

← →
begin...end © (2004-09-23 19:07) [14]

Э-э... Я, может, чего-то не понял, к тому же Delphi у меня сейчас под рукой нет, но, ИМХО, вот так можно попробовать:

var OldText: String; procedure TFormName.EditNameChange(Sender: TObject); var Index: Integer; begin with EditName do begin if Length(Text) = Length(OldText) - 1 then // Т.е. если произошло удаление символа begin Index := 1; while (Index <= Length(Text)) and (OldText[Index] = Text[Index]) do Inc(Index); // Сейчас Index содержит номер удалённого символа if OldText[Index] in [множество запрещённых для удаления символов] then Text := OldText; end end end;

Это, наверное, не будет работать, когда удалены были сразу несколько символов, но, думаю, можно это как-то доработать.

← →
Fay © (2004-09-23 19:11) [15]

2 [14] begin...end © (23.09.04 19:07)
Ага. А теперь выдели одну буковку и нажми какую-нибудь (к примеру, "Ы") кнопочку.

← →
yaric (2004-09-23 19:28) [16]

Вот я на onkeydown попробовал только что зделать чтобы "запретить", если определил что символ удалять нельзя

← →
begin...end © (2004-09-23 20:22) [17]

> [15] Fay © (23.09.04 19:11)

> А теперь выдели одну буковку и нажми какую-нибудь (к примеру, "Ы") кнопочку.

Я ж говорю: Delphi сейчас нету у меня.
А что же будет, если не секрет?

← →
Defunct © (2004-09-23 20:39) [18]

> А что же будет, если не секрет?

Кол-во символов не изменится, но символ поменяется, в народе это называют ЖУЛЬНИЧЕСТВО!! ;)
Неудивительно, что именно Fay преложил такую проверку, он в этих делах Гуру ;)

2 [18] Defunct © (23.09.04 20:39)
Читая в плохом настроении, можно предположить, что Вы обвиняете меня в склонности к жульничеству. А Вы знаете, что бывает за такие слова, к тому же, высказаные публично?!
8)

P.S
Не откажусь от объяснений.

Нет. Это "copy-paste" 8)

Fay © (23.09.04 20:44) [19]
О да..

Но, прошу заметить, конечно же слово ЖУЛЬНИЧЕСТВО не имеет никакого отношения к ВАМ, на ваш счет можно отнести лишь только предложенную оригинальную проверку ;)

PS: LOL, писалось в хорошем настроении, так что советую перечитать тот пост тоже с юмором. и совместить с другой веткой там где SHARE_DELETE

Так. Пора домой. Что-то я слишком угрюм - даже смайлики не действуют...
8)

а) как и говорилось ппробоваьт прикрутить MaskEdit

б) в наследнике TEdit перекрыть обработчик CN_COMMAND. В нем отлавливать Msg.NotifyCode=CBN_EDITUPDATE (текст изменен (не важно как), но еще не отрисован чтобы морганий не было). Соответсвенно всегда сохранять весь старый текст во внутренней переменной (см. замечание [15]) и после изменения (в указанном обработчике) проверять: если изменения допустимы - ничего не делать (текст измененный сохранить), не допустимы - ту же и восстановить. За одно не плохо бы кнопки забоя/удаления обработать, возможно флажки какие понадобятся.

PS
Сейчас на этом принципе сделал наследника TComboBox с дописыванием текста из имеющихся Items. Дошлифую - и возможно выложу, если кому интересно.

← →
yaric (2004-09-24 13:52) [25]

Что это за событие такое CN_COMMAND что-то я никак инфы по нему
найти не могу в WindowsSDK.

Насколько мне склероз не изменяет - это дельфовая оболочка для сообщения WM_Command...

Удаление из TEdit Найти похожие ветки