怎样知道DateTimePicker是否有打开下拉列表和怎样关闭下拉列表

Question

谢谢，但DroppedDown 好像是只读的，不能把DateTimePicker下拉列表关闭

Answer 1

DateTimePicker本来就是让用户关闭的,何必钻牛角尖呢?

Answer 2

我是要在一个Edit退出时检杳输入的数据是否正确，如果不正确则不让退出，但如果输入的是错误的数据后按DateTimePicker,DateTimePicker还是会打开的，有什么办法不让打开呢？

Answer 3

可以这样解决:
procedure TForm1.Edit1Exit(Sender: TObject);
function InputRight:boolean;
begin
  //add your codes here...
  result:=true;
end;
begin
  if InputRight=false then
    begin
      Edit1.SetFocus; DataTimePicker1.enable:=false;
      ShowMessage('输入不正确!'); 
    end
  else DataTimePicker1.enable:=true;
end;

Answer 4

pdsinfo(新手)　,谢谢你的答案,不过你的还有点问题,就是把DataTimePicker1.enable:=False时DataTimePicker1已经打开了,不过我改了一下已经可以了,就是在Edit输入的时候就把DataTimePicker1.enable:=False ,如果输入正确再把DataTimePicker1.enable:=True
谢谢