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

dupit · 发表于 2007-10-8 14:27:39

在表单的 FormDocCreate 事件中设置无效

dupit · 发表于 2007-10-8 14:36:07

TDateTimePicker 控件在表单A中 , 表单B引用了表单A , 窗体功能引用了表单B ,
在功能Onshow 事件中该如何如何指定 ?

atiger · 发表于 2007-10-8 14:44:38

TDateTimePicker 控件在表单A中 , 表单B引用了表单A ,
请问
表单B怎么引用表单A？
表单B和表单A在一个信息下吗？

窗体功能引用了表单B
怎么引用的？

你参考这个 http://bbs.justep.com/forum.php?mod=viewthread&tid=17782 ，看看是否能找到答案

dupit · 发表于 2007-10-8 15:11:22

表单B ,通过TDocView 引用了表单A ，在以表单B 新建功能

表单B 中定义了过程
function TWLCGJHDOC.GetXqmxDoc :TCGXQLBDOC;
begin
  Result := dovXQMX.Doc as TCGXQLBDOC;
end;

procedure TWLCGJHDOC.SetTDataTimeComp;
begin
  FXqmxDoc.dtpXYRQ.Checked := False;
  FXqmxDoc.dtpCGRQ.Checked := False;
end;

然后在功能窗体OnShow 事件中
procedure TCGJHFORM.BizFormShow(Sender: TObject);
begin
  CGGLXX.TWLCGJHDOC(DocViewCGGLXX_CGJH.Info).SetTDataTimeComp;
end;

运行出错，跳入这行代码 Result := dovXQMX.Doc as TCGXQLBDOC;

atiger · 发表于 2007-10-9 09:22:52

有点晕，你1楼和11楼都在说设置无效，怎么现在又是没法运行了呢？

TCGXQLBDOC 这是啥？
哪个是TDateTimePicker 这个控件？
把你的资源传上来吧，或者做个简单重现的例子

atiger · 发表于 2007-10-12 09:26:42

楼主，问题ok了，无论结果怎样，都请反馈一下

atiger · 发表于 2007-10-19 15:31:18

dupit · 发表于 2007-10-26 12:07:42

原先实现不来 ,我自己加了个 checkbox 来控制 ,所以就没测试下去了 .

dupit · 发表于 2007-10-26 12:12:49

TCGXQLBDOC 表单B 的ID , dtpXYRQ, dtpCGRQ 是TDateTimePicker 控件

atiger · 发表于 2007-10-26 13:23:22

现在问题ok了吗？如果没有ok，请提供资源包，我们恢复环境来跟踪一下，谢谢配合

		自动登录	找回密码
密码			立即注册

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

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