为什么会出现2次SHOWMESSAGE呢? |
缺席
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
我的通过程序比较2个DATATIMEPICKER间的日期差距,如果小于4,就出现警告语句,但是为使么会出现2次SHOWMESSAGE,让我点击2次呢? function TForm1.Day: byte; begin result := DaysBetween(Datetimepicker1.Date, datetimepicker2.Date); end; procedure TForm1.DateTimePicker2Change(Sender: TObject); begin if day<4 then showmessage('此票业务没有超期费产生哦!请重新选择日期'); end; 我要点击2次showmessage弹出来的按钮,才会关闭。还有我想问问,有没有办法让Datetimepicker2控件重新复位(就是默认系统的日期)?datetimepicker2.refresh好像没有用。
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
这样可以清楚点,
[code delphi] function TForm1.Day: byte; begin result := DaysBetween(Datetimepicker1.Date, datetimepicker2.Date); end; procedure TForm1.DateTimePicker2Change(Sender: TObject); begin if day<4 then showmessage('此票业务没有超期费产生哦!请重新选择日期'); end; [/code]
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |