Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с Маской ввода Плиз [D6, Win95/98]

HEXBAT © (2002-07-12 10:53:00)
Люди, поможите плз!
Как сделать проверку маски ввода на наличие введенной информации.
Хочется, чтоб выводилось отделное окно с сабжем об ошибке (красивое),
Но не тупой стандарт типа: " . . " 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:00) [1]
>HEXBAT
Тебе же человек правильно сказал :

> Сделай компонент потомок TMaskEdit
>TMyMaskEdit = class(TMaskEdit)

А ты опять используешь класс TMaskEdit !
Логика, аууууу...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »