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; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |