CreatePopupCalendar()是具有什麼功能 |
|
缺席
|
|
books
一般會員   發表：9 回覆：27 積分：7 註冊：2006-10-27 發送簡訊給我 |
我有下面代碼看不懂是什麼意思(不知各位有沒有相關資料可以查詢)：
{$IFDEF DEFAULT_POPUP_CALENDAR} FPopup := TPopupWindow(CreatePopupCalendar(Self {$IFDEF RX_D4}, BiDiMode {$ENDIF})); TPopupWindow(FPopup).OnCloseUp := PopupCloseUp; TPopupWindow(FPopup).Color := FPopupColor; {$ENDIF DEFAULT_POPUP_CALENDAR} 其源自於： constructor TCustomDateEdit.Create(AOwner: TComponent); begin inherited Create(AOwner); FBlanksChar := ' '; FTitle := NewStr(LoadStr(SDateDlgTitle)); FPopupColor := clBtnFace; FDefNumGlyphs := 2; FStartOfWeek := Mon; FWeekends := [Sun]; FWeekendColor := clRed; FYearDigits := dyDefault; FCalendarHints := TStringList.Create; TStringList(FCalendarHints).OnChange := CalendarHintsChanged; ControlState := ControlState [csCreating]; try UpdateFormat; {$IFDEF DEFAULT_POPUP_CALENDAR} FPopup := TPopupWindow(CreatePopupCalendar(Self {$IFDEF RX_D4}, BiDiMode {$ENDIF})); TPopupWindow(FPopup).OnCloseUp := PopupCloseUp; TPopupWindow(FPopup).Color := FPopupColor; {$ENDIF DEFAULT_POPUP_CALENDAR} GlyphKind := gkDefault; { force update } finally ControlState := ControlState - [csCreating]; end; end; |
發表時間：2007-03-26 19:32:27
IP:220.198.xxx.xxx 未訂閱
系統時間：2024-05-14 4:34:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |