DateTimePicker1.Format:=' ';
然后在OnChange方法中再次设置格式
procedure TForm1.DateTimePicker1Change(Sender: TObject); begin DateTimePicker1.Format:=ShortDateFormat; end;