Delphi TMonthCalendarでの日付の選択判定

Question

##質問内容
Delphiで自作のDatePickerを作ろうと思い、TEditとTButtonを配置し、ボタンをクリックするとTMonthCalendarの張り付いたフォームをポップアップ表示をするようなプログラムを作成しています。
ポップアップを表示し日付をクリックすると、日付をEditに入力しポップアップを閉じるといったところまでできたのですが、
カレンダーコンポーネントの月を選択する矢印ボタン？をクリックすることでも閉じてしまうところが現在の課題点となっています。
動き的には、カレンダーの日付部分だけクリックするとポップアップを閉じるようにし、それ以外の場所をクリックしても閉じないようにしたいです。

下記に現状のコードを記しておくので、アドバイスなどがありました、ご回答お願いします。

procedure TForm2.MonthCalendar1Click(Sender: TObject);
var
  MousePos : TPoint;
  HitInfo  : TMCHitTestInfo;
begin
  GetCursorPos(MousePos);
  MousePos       := MonthCalendar1.ScreenToClient(MousePos);
  HitInfo.cbSize := SizeOf(HitInfo);
  HitInfo.pt     := MousePos;

  MonthCal_HitTest(MonthCalendar1.Handle, HitInfo);

  if HitInfo.uHit and MCHT_CALENDARDATE <> 0 then
    begin
    FDataTime := MonthCalendar1.Date;
    Form1.Edit1.Text := FormatDateTime('yyyy年 MM月 dd日', FDataTime);
    close;
    end;
end;

Answer 1

procedure TForm2.MonthCalendar1Click(Sender: TObject);
var
  MousePos : TPoint;
  HitInfo  : TMCHitTestInfo;
begin
  GetCursorPos(MousePos);
  MousePos       := MonthCalendar1.ScreenToClient(MousePos);
  HitInfo.cbSize := SizeOf(HitInfo);
  HitInfo.pt     := MousePos;

  MonthCal_HitTest(MonthCalendar1.Handle, HitInfo);

  if HitInfo.uHit and MCHT_NEXT <> 0 then
    exit;

  if HitInfo.uHit and MCHT_PREV <> 0 then
    exit;

  if HitInfo.uHit and MCHT_CALENDARDATE <> 0 then
    begin
    FDataTime := MonthCalendar1.Date;
    Form1.Edit1.Text := FormatDateTime('yyyy年 MM月 dd日', FDataTime);
    close;
    end;
end;

MCHT_NEXTとMCHT_PREVを利用することで月選択ができるようになりました。

Answer 2

MCHT_CALENDARDATE だけを and で判定していますが、月選択の場合、他のフラグも立っていると思います。uHit の値を調べてみてはどうでしょうか？