【搞定】TDateTimePicker 默认 checked 属性 ？？？？**

dupit

TDateTimePicker 默认 checked  属性 设置为 False ;
运行功能后 , checked  属性还是为True ;
在窗体 onshow 事件中 写代码 设置False ,运行后还是 True ;
如何修改 , 默认checked  属性 设置为 False ;????

dupit

在线等

atiger

你用的哪个版本，我在2809上测试是正常的。

dupit

2809  你是 怎么操作的

dupit

怎么操作的 反映下

yancm

你选上了TDateTimePicker的showcheckbox了吗？

atiger

我就是在设计时候取消 TDateTimePicker 的checked   这个属性的选择，然后运行，然后关闭，看看这个属性是否又被选上了。我还关闭功能再打开看了一下，checked   这个属性也是没有选中
你呢？

dupit

跟你 一样 也是这样

dupit

选上了TDateTimePicker的showcheckbox

atiger

不会呀，我在 a:=1 的地方设置断点看  DateTimePicker1.Checked  这个值是False。
功能窗体上的所有代码

unit MainForm;

interface

uses
  Business.System, Business.Forms, Business.model;

type
  TMainForm = class(TForm)
    DateTimePicker1: TDateTimePicker;
    Button3: TButton;
    procedure BizFormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation




procedure TMainForm.BizFormShow(Sender: TObject);
begin
  DateTimePicker1.Checked := False;
end;



procedure TMainForm.Button3Click(Sender: TObject);
Var
  a:String;
begin
  a:='1';
end;

end.