procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=datetostr(datetimepicker1.Date);
edit2.Text:=datetostr(datetimepicker1.DateTime);
end;
begin
edit1.Text:=datetostr(datetimepicker1.Date);
edit2.Text:=datetostr(datetimepicker1.DateTime);
end;
解决方案 »
- 有谁有GSM MODEM的二次开发包啊!
- 三层应用的发布问题:许可证。
- 看看哪位老大能帮帮我?
- 我N年没有提过问题了..我决定提个无聊的问题
- 有关delphi版本问题(女朋友给我的任务,完成不了,会损我形象的,大家帮忙!)
- 在delphi中怎么样用sql语句。数据库是access2000,用ado连接的,单机办。
- 怎样弹出window自带的systemmenu?
- C++与delphi相互指针转换的问题,急!!!
- 又在深圳的Delphi程序员吗?-->请进
- 为了Delphi做得更好,Delphi6-Bug大家一起快快抓吧!(不好意思!只能给这么多分了)
- 100分求救,在线等待。在数据库sqlserver2000中adoquery的参数查询
- 新出的vb.net功能上有什么比VB6增强的地方?它和DELPHI相比较又如何呢?
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.
TimeToStr(DateTimePicker1.Time)
edit1.text := Datetostr(DateTimePicker1.date)
else
Edit1.text := timetostr(DateTimePicker1.time);
p :PChar;
begin
Getmem(P, 20);
GetWindowText(dateTimePicker1.Handle,p,20);
Edit1.text := Strpas(P);
freemem(p);
end;
begin
edit1.Text:=datetostr(datetimepicker1.Date);
edit2.Text:=datetimetostr(datetimepicker1.DateTime);
end;
edit2.Text:=datetimetostr(datetimepicker1.DateTime);