可用分押宝游戏火热进行中...	专题改版：Java Web 专题

如何把DateTimePicker1.date制空？？

楼主wu_small（斌）2004-12-03 17:53:36 在 Delphi / 数据库相关提问

各位大虾：
小的不知道如何将DateTimePicker1.date的日期制空。就象Edit1.text=''那样？
请教！！！问题点数：10、回复次数：10Top

1 楼whythinkwhy（小生）回复于 2004-12-03 18:07:00 得分 5

换控件吧DateTimePickereh可以实现
不过需要提醒的是你把日期置空的话系统是不认的，你再次取出来的话可能会变成1899-12-30或者1900-1-1 这都是系统默认为空的日期Top

2 楼seekmydoom（靠灌水混日子）回复于 2004-12-03 18:14:43 得分 0

DateTimePicker1设成空不可能的哦Top

3 楼coeltdit（每天多顶几下----->>>大虾就是这样练成的）回复于 2004-12-03 18:29:28 得分 5

下面的代码来自于：Toory's Delphi pages

uses
CommCtrl;

var
FDTMDateEmpty: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
DateTime_SetFormat(DateTimePicker1.Handle, '''Choose a date''');
FDTMDateEmpty := True;
end;

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
DateTime_SetFormat(DateTimePicker1.Handle, PChar('dd.MM.yy'));
end;

procedure TForm1.DateTimePicker1Click(Sender: TObject);
begin
if FDTMDateEmpty then
begin
DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0);
DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0);
end;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
FDTMDateEmpty := False;
end;
------------------------------------------------------------------
以上代码可以实现，我试过了。
Top

4 楼pdbird（老巢）回复于 2004-12-03 22:43:21 得分 0

为何要将DateTimePicker1.date的日期制空???
很是不理解，你不用，可以将它timer1.enabled=False;Top

5 楼Goxu（一步两步三步）回复于 2004-12-04 00:42:24 得分 0

coeltdit(每天多顶几下----->>>大虾就是这样练成的)
的方法可以实现

DateTimePicker置空可以直观的告诉用户这个值还没输入Top

6 楼wu_small（斌）回复于 2004-12-06 14:06:43 得分 0

To: coeltdit(每天多顶几下----->>>大虾就是这样练成的)
谢谢！
不过，我象问一下，如果要是作数据库处理的话，在不选择这个时间值(DateTimePicker)的情况下，系统使用的是系统时间值，还是取空值呢？
Top

7 楼wu_small（斌）回复于 2004-12-08 11:40:33 得分 0

To: coeltdit(每天多顶几下----->>>大虾就是这样练成的):
怎么不回话啊！？？Top

8 楼coeltdit（每天多顶几下----->>>大虾就是这样练成的）回复于 2004-12-08 12:24:25 得分 0

To: wu_small(斌)
不好意思，这些天有些忙，所以没有上CSDN；
作数据库处理，取系统时间值;Top

9 楼zzlazio（sritsb）回复于 2004-12-08 12:52:43 得分 0

8会Top

10 楼wxmijl（心灵之窗）回复于 2004-12-08 13:13:35 得分 0

DateTimePicker1.text:='';Top