【搞定】TDateTime初始化问题**

kd_xjx

1，TNDFDHTCT类的Button_DetailClick传给TDJXXXX的构造方法一个TDateTime参数
procedure TNDFDHTCT.Button_DetailClick(Sender: TObject);
var
date1 : TDateTime;
begin
    date1 := DT_date.DateTime;
    dialog := TDJXXXX.Create(Context,...,date1);

2，TDJXXXX的构造方法如下：除了日期都好用
constructor TDJXXXX.Create(c:TContext; tDia:Integer; num:String ;conType:Integer;
                   price:Integer;date1:TDateTime);
begin
    。。。
    jsdialogs.ShowMsg(SysUtils.DateTimeToStr(date1),'');//能打印出日期
    //DT_date.DateTime := Tdatetimepicker.DateTime; 不好用
    //DT_date.Create; 不好用
    DT_date.Date := date1; //提示错误·！！！
end;

kd_xjx

DT_date.Create(c); // 也试过,不好用

kd_xjx

DT_date: TDateTimePicker;  忘记加了

kd_xjx

DT_date.Create(Self); // 也试过,不好用

kd_xjx

是不是 构造方法 里不认识 TDJXXXX中定义的DT_date: TDateTimePicker;??
type
  TDJXXXX = class(TForm)
    DT_date: TDateTimePicker;

kd_xjx

1,后传也不行,急等!!!
    dialog := TDJXXXX.Create(Context,1,num,conType,price);
    dialog.setDT_Date(date1);
2, 构造方法去掉TDateTime参数
procedure TDJXXXX.setDT_Date(date1: TDateTime);
begin
    DT_date.DateTime := date1;
end;
constructor TDJXXXX.Create(c:TContext; tDia:Integer; num:String ;conType:Integer;
                   price:Integer);

kd_xjx

解决了, 结帖!!!!!