谁能告诉我，这是怎么回事？

[MFCboy]

NEW 一个工程，Add a editmask control called edtfrom and a button.

我在这两个事件中写道：

procedure TForm1.edtFromChange(Sender: TObject);
begin
if edtFrom.Modified then
showmessage('modifled')
else
showmessage('not modifled')

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
const StrCaseMask = '99\-9\-99999;0;';
StrCCFNMask = '9999\-9999999;0;';
begin
edtFrom.EditMask := StrCaseMask;//OtherCaseNumDispMask,'-','\-',
end;


If I copy and paste to editmask, it will say modifed. But if I click the button to run the code to set mask, then I paste, it will say not Modifed. why??? who tell me?

[sun_cathay]

我到了国外论坛了?为何不说中国话?

[chutian]

up

[MFCboy]

问题是我帮别人问的？题目也是他发给我的，我的英语连4级都没过！我只求一个答案！（还有除了中国男足，任何方面我都很爱国）。

[sun_cathay]

没问题啊，我按照你的代码测试了，都有反映

[cookieyfeng]

程序应该没有问题的,如果还不能通过,试试将
edtFrom.EditMask := StrCaseMask改成
edtFrom.Text:=StrCaseMask