Помогите с Маской ввода Плиз

← →
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 !
Логика, аууууу...

Помогите с Маской ввода Плиз Найти похожие ветки