كيف اجعل مكون Edit يقبل تاريخ Date فقط

[hallal02]

السلام عليكم

عند الكتابة في edit حاول التحقق من محتوى النص:

كود :

var form2: Tform2; [color=red]mydate:tdatetime;[/color] implementation {$r *.dfm} procedure tform2.button1click(sender: Tobject); begin mydate:=strtodate(edit1.text); showmessage(datetostr(mydate)); end;

يبقى لك تسير الأخطاء في حالة تاريخ غير صحيح

السلام عليكم
لقد قمت بما نصحتني به
لكن دون جدوى
و ليكن في علمك أنني مبتدأ