請教各位前輩： Windows XP SP1 + Delphi7 放一個TDateTimePicker、三個Button及XPManifest。 將TDateTimePicker的ShowCheckbox打開。

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DateTimePicker1.Checked then
    ShowMessage('Checked')
  else
    ShowMessage('UnChecked');
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  DateTimePicker1.Checked := True;
end;    procedure TForm1.Button3Click(Sender: TObject);
begin
  DateTimePicker1.Checked := False;
end;

(完整的source code，只有上面而已) 在操作時，『有時』明明是打勾，但回傳是False，『有時』明明是沒有打勾，但回傳是True。我找不出有什麼正規的操作流程，以導致這錯誤的情形。 目前確定的是： 一、執行，按下button1，顯示Checked。 二、在Checkbox上按一下，(目前無Checked)，再按button1，卻示Checked。 三、無次序的操作，有時就會出現錯誤的情形。 請問前輩，這問題如何解呢？ 謝謝！

No problem for me.. XP Pro SP1 Delphi 7 update 7.1.

謝謝大大的回應！ 我目前在兩台電腦上，都有相同的問題。一台是Delphi 7 Build4.453，一台是Delphi7 Build 8.1(?不確定？應該是已升級至SP1)。 真是煩腦啊！ 不曉得有無其他的Free元件有提供類似的功能？ 補充一點，我在VB.NET上試過，沒有問題！ 發表人 - 小蟲蟲 於 2004/05/28 00:23:47