关于 DateTimePicker1控件

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=datetostr(datetimepicker1.Date);
  edit2.Text:=datetostr(datetimepicker1.DateTime);
end;

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit2: TEdit;
    procedure DateTimePicker1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
edit1.text:=datetimetostr(DateTimePicker1.Date);
edit2.text:=datetostr(DateTimePicker1.Date);  //只有时间无日期
end;end.

Answer 2

还有
TimeToStr(DateTimePicker1.Time)

Answer 3

if DateTimePicker1.Kind = dtkDate then
   edit1.text := Datetostr(DateTimePicker1.date)
else
   Edit1.text := timetostr(DateTimePicker1.time);

Answer 4

var
  p :PChar;
begin
    Getmem(P, 20);
    GetWindowText(dateTimePicker1.Handle,p,20);
    Edit1.text := Strpas(P);
    freemem(p);
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=datetostr(datetimepicker1.Date);
  edit2.Text:=datetimetostr(datetimepicker1.DateTime);
end;

Answer 6

edit1.Text:=datetostr(datetimepicker1.Date);
  edit2.Text:=datetimetostr(datetimepicker1.DateTime);