Изменение состояния/формата TMonthCalendar в Delphi

Question

Использование Delphi XE6, я создаю TdateTimePicker-подобный элемент управления, но по нескольким причинам я использую TButtonedEdit, в котором есть встроенный TMonthCalendar. Они определяются следующим образом:

TMyMonthCalendar = class(TMonthCalendar) 
    procedure DoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure DoCloseUp(Sender: TObject); 
    private 
    FDroppedDown: boolean; 
    procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY; 
    protected 
    end; 

    TMyDateEdit = class(TButtonedEdit) 
    private 
    FMonthCalendar: TMyMonthCalendar; 

    procedure DoRightButtonClick(Sender: TObject); 
    protected 
    procedure CreateWnd; override; 
    public 
    constructor Create(AOwner:TComponent); override; 
    destructor Destroy; override; 
    end; 

У меня есть довольно много получили это происходит по желанию с календарным месяцем показывается, когда правая кнопка нажата, и я прячусь, когда выбор сделан, когда пользователь покидает, побеги и т.д. .

Что меня пугает, так это: когда календарь «опустился», если пользователь нажимает или дважды нажимает на заголовок, календарь меняется на сетку месяцев или лет соответственно. Если пользователь ESCapes, например, в тот момент, когда я опускаю календарь вниз, он возвращается к состоянию месяцев/лет, тогда как я хотел бы, чтобы он возвращался к показу текущего месяца его свойства Date (как это делает TDateTimePicker).

Как я могу вернуть отображение календаря месяца в его состояние на один месяц, прежде чем показывать его?

Редактирование: Я считаю, что нашел ответ: после скрытия MonthCalendar я просто вызываю RecreateWnd, а основной экранный объект уничтожается и воссоздается с нуля, когда следующий вызываемый. И поскольку он появляется в формате одного месяца, чего я хочу, больше ничего не нужно делать.

Answer 1

Вы можете позвонить по телефону MonthCal_SetCurrentView, чтобы установить представление для календаря месяца (или отправить MCM_SETCURRENTVIEW).

uses commctrl; 

MonthCal_SetCurrentView(FMonthCalendar.Handle, MCMV_MONTH); 

Если вы когда-нибудь понадобится, чтобы получить текущий вид, вы можете использовать MonthCal_GetCurrentView (или MCM_GETCURRENTVIEW).