datetimepicker всегда развернут delphi

[N.i.k.o.l.a.y.]

Вообщем вся суть вопроса в заголовке: как сделать datetimepicker всегда развернут в delphi?
Проблема заключается в том что я когда я нажимаю на кнопку которая делает скрин формы, datetimepicker сворачивается обратно и у меня не получается заскринить..
Не знаю как объяснить, но думаю суть вопроса понятна)
Помогите пожалуйста.. Может есть какойнибудь другой способ..
Скрин делаю припомощи вот такого кода:

{var
  Bm : TBitmap;
  WinRect : TRect;
  hWinDC : THandle;
begin
  Bm := TBitmap.Create;
  Bm.Width := Self.Width;
  Bm.Height := Self.Height;
  hWinDC := GetWindowDC(Self.Handle);
  BitBlt(Bm.Canvas.Handle,0,0,Bm.Width,Bm.Height,hWinDC,0,0,SRCCOPY);
  ReleaseDC(Self.Handle, hWinDC);
  Bm.SaveToFile('file1.bmp');
  Bm.Free;
end;

Очень надеюсь на вашу помощ..

[Stilet]

А ты его не используй. Используй TMonthCalendar.

[N.i.k.o.l.a.y.]

Мне нужно что бы выбор даты был... Я ввел допустим 13.10.2016 и он мне это показал на календаре..

[Armorer]

Как вариант, делать скрин по нажатию кнопки с клавиатуры.


Если это происходит на форме, то можно убрать GetWindowDC и ReleaseDC (с проблемой не поможет, но код короче будет).

  
  hWinDC := GetWindowDC(Self.Handle);
  BitBlt(Bm.Canvas.Handle,0,0,Bm.Width,Bm.Height,hWinDC,0,0,SRCCOPY);
  ReleaseDC(Self.Handle, hWinDC);

BitBlt(Bm.Canvas.Handle,0,0,Bm.Width,Bm.Height,Canvas.Handle,0,0,SRCCOPY);

[N.i.k.o.l.a.y.]

С Клавы не вариант.. Должен быть вывод в файл, думаю в ручную не пойдет)