Текущий архив: 2002.07.25;
Скачать: CL | DM;
Вниз
Помогите с Маской ввода Плиз Найти похожие ветки
← →
HEXBAT © (2002-07-12 10:53) [0]Люди, поможите плз!
Как сделать проверку маски ввода на наличие введенной информации.
Хочется, чтоб выводилось отделное окно с сабжем об ошибке (красивое),
Но не тупой стандарт типа: " . . " is not a valid date
Заранее огромное спасибо!
Ответил TTCustomDelphiMaster © (10.07.02 13:27)
Сделай компонент потомок TMaskEdit
TMyMaskEdit = class(TMaskEdit)
procedure ValidateEdit; override; // Производит проверку
end;
procedure TMyMaskEdit.ValidateEdit;
begin
try
inherited ValidateEdit;
except
// Здесь напиши свое сообщение
ShowMessage("... .. ... .....");
end;
end;
Но вот беда, я не знаю куды это все вставлять, Помогите плиз
У меня вот такое:
type
TForm2 = class(TForm)
MaskEdit1: TMaskEdit;
...
If Form2.MaskEdit1.Text = "" Then
Begin
Form4.ShowModal;
Form4.Label1.Caption := "ОШИБКА ВВОДА!!!"
End;
Заранее спасибо!!!!
← →
Skier © (2002-07-12 11:48) [1]>HEXBAT
Тебе же человек правильно сказал :
> Сделай компонент потомок TMaskEdit
>TMyMaskEdit = class(TMaskEdit)
А ты опять используешь класс TMaskEdit !
Логика, аууууу...
Страницы: 1 вся ветка
Текущий архив: 2002.07.25;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c
