Как развернуть календарь в TDateTimePicker

[DeadMan]

Подскажите плиз как из кода открыть календарик в TDateTimePicker?

[Alar]

Не понял совершенно, что нужно. может это? - MonthCalendar1

[RSLoader]

Вот вычитал в интернете:

procedure TForm1.Button1Click(Sender: TObject);
var
  Pos:TPoint;
begin
  Pos:=Mouse.CursorPos;
  try
    ShowCursor(False);
    with DateTimePicker1 do
    begin
      Mouse.CursorPos:=ClientToScreen(Point(Width-10,10));
      mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
      mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0)
    end
    finally
    Mouse.CursorPos:=Pos;
    ShowCursor(True);
  end;
end;

[DeadMan]

Спасибо за совет, я сделал что-то в этом роде:

x : array of SmallInt;
lparam : integer;

DBDateEdit.Visible:=True;
x:=@lparam;
x[0]:= DBDateEdit.Width-10;
x[1]:= 1;
DBDateEdit.Perform(WM_LBUTTONDOWN,M K_LBUTTON,lparam);