کسی میداند چگونه میتوان پیغام maskedit را کنترل کرد

[afshar]

سلام
اگه سوالم خیلی ابتدائیه ببخشید :cry:
کسی میداند چگونه میتوان پیغام maskedit را کنترل کرد یعنی سیستم فرمت ورودی را چک کند ولی به جای اینکه سیستم پیغام بدهد خودمان پیغام مورد نظرمان را به کاربر نشان بدهیم.

[hr110]

سلام
اولین راهی که به نظر این حقیر میرسه این است که شما یک کلاس جدید تولید کنید:



type
TNewMaskEdit = Class(TCustomMaskEdit)
protected
procedure ValidateError; override;
end;

implementation


procedure TNewMaskEdit.ValidateError;
begin
ShowMessage('here ..');
end;



procedure TForm1.Button1Click(Sender: TObject);
var
E : TNewMaskEdit;
begin
E:=TNewMaskEdit.create(Self);
E.EditMask:='!99/99/00;1;_';
InsertControl(E);
end;

[m-khorsandi]

درود

راهی که به نظر من میرسه


'MaskEdit1.EditMask = '!9999/99/99;1;_


البته این حالت باعث میشه که هیچ پیغامی نمایش داده نشه و شما میتونید مقدار رو خودتون کنترل کنید،
برای نمونه با استفاده از OnExit میتونید این کار رو انجام بدید.