请问若何让combobox不显示下拉列表,而显示我指定的panel?

ComboBox1.Style := csSimple;

其实我是想用combobox和MonthCalendar来做DateTimePicker!当我点击combobox时,不显示空的下拉项而显示MonthCalendar!

spritemm 你好: unit ComCtrls; DateTimePicker1 裡面都有寫了,如何用combobox製造的過程跟變數宣告還有一些時間與字串的轉換 TDateTimePicker = class(TCommonCalendar) private FCalAlignment: TDTCalAlignment; FChanging: Boolean; FChecked: Boolean; FDateFormat: TDTDateFormat; FDateMode: TDTDateMode; FDroppedDown: Boolean; FKind: TDateTimeKind; FLastChange: TSystemTime; FParseInput: Boolean; FShowCheckbox: Boolean; FOnUserInput: TDTParseInputEvent; FOnCloseUp: TNotifyEvent; FOnChange: TNotifyEvent; FOnDropDown: TNotifyEvent; FFormat: String; procedure AdjustHeight; function GetTime: TTime; procedure SetCalAlignment(Value: TDTCalAlignment); procedure SetChecked(Value: Boolean); procedure SetDateMode(Value: TDTDateMode); procedure SetDateFormat(Value: TDTDateFormat); procedure SetKind(Value: TDateTimeKind); procedure SetParseInput(Value: Boolean); procedure SetShowCheckbox(Value: Boolean); procedure SetTime(Value: TTime); procedure CMColorChanged(var Message: TMessage); message CM_COLORCHANGED; procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED; procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY; procedure SetFormat(const Value: String); protected procedure CheckEmptyDate; override; procedure CreateParams(var Params: TCreateParams); override; procedure CreateWnd; override; procedure Change; dynamic; function GetCalendarHandle: HWND; override; function MsgSetCalColors(ColorIndex: Integer; ColorValue: TColor): Boolean; override; function MsgSetDateTime(Value: TSystemTime): Boolean; override; function MsgSetRange(Flags: Integer; SysTime: PSystemTime): Boolean; override; public constructor Create(AOwner: TComponent); override; property DateTime; property DroppedDown: Boolean read FDroppedDown; published property Anchors; property BevelEdges; property BevelInner; property BevelOuter; property BevelKind default bkNone; property BevelWidth; property BiDiMode; property CalAlignment: TDTCalAlignment read FCalAlignment write SetCalAlignment; property CalColors; property Constraints; // The Date, Time, ShowCheckbox, and Checked properties must be in this order: property Date; property Format: String read FFormat write SetFormat; property Time: TTime read GetTime write SetTime; property ShowCheckbox: Boolean read FShowCheckbox write SetShowCheckbox default False; property Checked: Boolean read FChecked write SetChecked default True; property Color stored True default clWindow; property DateFormat: TDTDateFormat read FDateFormat write SetDateFormat; property DateMode: TDTDateMode read FDateMode write SetDateMode; property DragCursor; property DragKind; property DragMode; property Enabled; property Font; property ImeMode; property ImeName; property Kind: TDateTimeKind read FKind write SetKind; property MaxDate; property MinDate; property ParseInput: Boolean read FParseInput write SetParseInput; property ParentBiDiMode; property ParentColor default False; property ParentFont; property ParentShowHint; property PopupMenu; property ShowHint; property TabOrder; property TabStop default True; property Visible; property OnClick; property OnCloseUp: TNotifyEvent read FOnCloseUp write FOnCloseUp; property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnContextPopup; property OnDropDown: TNotifyEvent read FOnDropDown write FOnDropDown; property OnDblClick; property OnDragDrop; property OnDragOver; property OnEndDock; property OnEndDrag; property OnEnter; property OnExit; property OnKeyDown; property OnKeyPress; property OnKeyUp; property OnStartDock; property OnStartDrag; property OnUserInput: TDTParseInputEvent read FOnUserInput write FOnUserInput; end;

------
======================
昏睡~
不昏睡~
不由昏睡~

不知合不合用, 參考看看: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37431