有關MonthCalendar問題!! |
答題得分者是:channel
|
Ethan
版主 發表:101 回覆:170 積分:78 註冊:2006-07-05 發送簡訊給我 |
|
channel
尊榮會員 發表:67 回覆:707 積分:854 註冊:2002-05-02 發送簡訊給我 |
引言: 請問我可以讓MonthCalendar自動一天一天的選取嗎?{當click button後} 就是說偵測今天日期後再加一天,直到2003/12/31就不再加. 因為我打算每加一天就去做特定事情. procedure TForm1.Button1Click(Sender: TObject); begin if MonthCalendar1.Date < StrToDate('2003/12/31') then MonthCalendar1.Date := MonthCalendar1.Date 1; end;~小弟淺見,參考看看~ 發表人 - channel 於 2003/05/13 13:20:47
------
~小弟淺見,參考看看~ |
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
這個會由原本選定的日子一天一天的走到新選定的日子,若使用者跳到下一個月,日子就會一天一天的跳到下個月第一日,若跳到上一個月,就一天一天的跳到上一個月最後一日。 不知對你有沒用。
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ComCtrls, DateUtils; type TForm1 = class(TForm) MonthCalendar1: TMonthCalendar; procedure FormShow(Sender: TObject); procedure MonthCalendar1Click(Sender: TObject); private LastDate : TDate; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin LastDate := MonthCalendar1.Date; MonthCalendar1.MaxDate := EncodeDate(2003,12,31); end; procedure TForm1.MonthCalendar1Click(Sender: TObject); var NewDate : TDate; begin if LastDate = MonthCalendar1.Date then exit; NewDate := MonthCalendar1.Date; MonthCalendar1.Date := LastDate; //This session make the traveral over month to stop at start/end of the new month //If you want it to stop in the same day of the old value, just delete this session if MonthOf(NewDate) > MonthOf(LastDate) then NewDate := EncodeDate(YearOf(NewDate),MonthOf(NewDate),1) else if MonthOf(NewDate) < MonthOf(LastDate) then NewDate := EncodeDate(YearOf(NewDate),MonthOf(NewDate),DaysInMonth(NewDate)); //End of new Month operation repeat if MonthCalendar1.Date < NewDate then MonthCalendar1.Date := MonthCalendar1.Date 1 else MonthCalendar1.Date := MonthCalendar1.Date - 1; //Do what you need to do every date sleep(300); //demo only pls delete until MonthCalendar1.Date = NewDate; LastDate := MonthCalendar1.Date; end; end. |
Ethan
版主 發表:101 回覆:170 積分:78 註冊:2006-07-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |