DateTimePicker的日期不能隨日期改變而自動改變，如26號寫的程式，DateTimePicker是26號放到Form裡去的，到今天還是26號，為什麼？

Question

如26號寫的程式，DateTimePicker是26號放到Form打裡去的，到今天還是26號，為什麼？

Answer 1

在form.show的时候update一下行不行呢

Answer 2

把它找开的时候赋一下值不就可以了，
DateTimePicker1.DateTime := Now;

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.DateTime :=now;
end;

Answer 4

对，在FormCreate或FormShow中赋值。

Answer 5

object DateTimePicker1: TDateTimePicker
  Left = 296
  Top = 64
  Width = 186
  Height = 21
  CalAlignment = dtaLeft
  Date = 38409.9343513194   <<<<<<<<<已经放到窗体文件中了
  Time = 38409.9343513194   <<<<<<<<<已经放到窗体文件中了
  DateFormat = dfShort
  DateMode = dmComboBox
  Kind = dtkDate
  ParseInput = False
  TabOrder = 0
end

Answer 6

ron_xin(星雨)的方法可以，我也是这样写的，打开程序显示当天日期。

Answer 7

恩。。我也是用ron_xin(星雨)的方法

Answer 8

ron_xin(星雨):可以，
 zswang(伴水清清)(专家门诊清洁工)的，我試了下不行，是不是哪裡還要設置？

Answer 9

这个，肯定是要在form的create代码中动态指定的！

Answer 10

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.DateTime :=now;
end;