DateTimePicker问题

Question

如何使DateTimePicker自动显示下拉效果

Answer 1

窗体上只放一个datetimepicker1。运行时直接显示出来。代码参见：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
   flag:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('ddd')
end;procedure TForm1.FormPaint(Sender: TObject);
begin
if flag=true then
begin
 SetCursorPos(form1.Left+datetimepicker1.Left+datetimepicker1.Width-10,form1.top+20+datetimepicker1.top+10)   ;//模拟点击，定位鼠标坐标
 mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0)    ;
 mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0)    ;
 flag:=false;
end;
end;procedure TForm1.FormCreate(Sender: TObject);begin
flag:=true
end;end.

Answer 2

在别的地方使用，只要将if flag then 之中的三行代码考过去就成了。