Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c