запрет на ввод Edit не даты (Delphi)

[tarasov_88]

Сообщение от Sparky

почитайте про MaskEdit, там все довольно прозрачно... например вот http://www.beluch.ru/progr/100comp/3_3_3.htm

уже читаю,как раз эту ж ссылку)

опять же там можно ввести дату 44.22.44, такой даты не бывает

[Serge_Bliznykov]

Ну вот уже почти все сделано,посмотрите пост выше. Неужели переделывать..

я бы переделал. или вообще запретил в эти Edit'ы прямой ввод, рядом поместил кнопочку, по которой "вываливал" DateTimePicker, где бы и осуществлялся ввод даты. Кстати, много удобных контролов для ввода даты входит в состав JEDI.

Как ОЧЕНЬ извращённый вариант, можете попробовать такой код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var te : TEdit;
    sLen : integer;
    setCheck : set of char;
begin
   te := Sender as TEdit;
   sLen := Length(te.Text);
   if sLen >= 10 then
      Key := #0
   else begin
     setCheck := [#8];
     case sLen of
       0..1,3..4,6..10 : setCheck := [#8, '0'..'9'];
       2,5    : setCheck := [#8, '.'];
     end;
    if not (Key in setCheck) then
     begin
       ShowMessage('Недопустимый символ: '+ Key +#13#10+'Введите дату в формате: 01.01.2012');
       Key := #0;
     end;
   end;
end;

тут же можно сразу проверять, вводится ли допустимый день месяца, допустимый месяц, достимый год и т.д. и т.п.
но непонятно, зачем огород городить, когда это давным давно уже сделано.
(см. например, TJvDateEdit )


PS. Предложенный мной извращённый вариант (по сути) тоже самое, что и MaskEdit - он не защищает от 44.22.3333

PPS. через Ctrl-Ins/Shiftl-Ins можно вставить ВООБЩЕ всё что угодно, событие KeyPress в этом случае не срабатывает!

[tarasov_88]

Сообщение от Serge_Bliznykov

я бы переделал. или вообще запретил в эти Edit'ы прямой ввод, рядом поместил кнопочку, по которой "вываливал" DateTimePicker, где бы и осуществлялся ввод даты. Кстати, много удобных контролов для ввода даты входит в состав JEDI.

Как ОЧЕНЬ извращённый вариант, можете попробовать такой код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

тут же можно сразу проверять, вводится ли допустимый день месяца, допустимый месяц, достимый год и т.д. и т.п.
но непонятно, зачем огород городить, когда это давным давно уже сделано.
(см. например, TJvDateEdit )


PS. Предложенный мной извращённый вариант (по сути) тоже самое, что и MaskEdit - он не защищает от 44.22.3333

PPS. через Ctrl-Ins/Shiftl-Ins можно вставить ВООБЩЕ всё что угодно, событие KeyPress в этом случае не срабатывает!

спасибо огромное!ваш код сработал как надо,только не дает дату вводить еще раз, если она уже забита, только в пустой эдит ввод проходит.

Разобрался: поменял if sLen >= 10 then на if sLen >= 11 then

А можно такую процедуру в цикл вбить по эдитам,чтоб для каждого отдельного не прописывать?? Только цикл не по всем editaм, а только по нечетным

[Serge_Bliznykov]

А можно такую процедуру в цикл вбить по эдитам,чтоб для каждого отдельного не прописывать?? Только цикл не по всем editaм, а только по нечетным

не можно а НУЖНО!

я в коде специально использовал sender - (этот тот контрол, который и вызвал событие).
Можно (нужно) назначить ВСЕМ проверяемым эдитам одно и то же событие!

Поступайте так, на форме в режиме дизайнера выделяете с помощью зажатой клавиши Shift и клика лев.кн.мышки все нужные Edit'ы (которые должны контролироваться).
потом в испекторе объектов (Object Inspector), закладка События (Events) на Onchange стрелочка и выбираете нужное событие ( в вашем случае Edit1KeyPress). нажимайте Enter. всё.