線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1002
推到 Plurk!
推到 Facebook!

为什么会出现2次SHOWMESSAGE呢?

缺席
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-12-14 16:35:52 IP:125.215.xxx.xxx 訂閱
我的通过程序比较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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-12-14 16:37:51 IP:125.215.xxx.xxx 訂閱
这样可以清楚点,

[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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-12-16 19:53:50 IP:58.35.xxx.xxx 訂閱
高手都去那里了?难道没有人知道吗?
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-12-17 15:46:37 IP:125.215.xxx.xxx 訂閱
在大富翁上面已经有了答案封帖
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
系統時間:2024-03-28 20:09:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!