怎么实现DBEDIT上的DATETIMEPICKER获得日期的效果？

Question

怎么实现DBEDIT上的DATETIMEPICKER获得日期的效果？

Answer 1

1、如果要省事，你可以用三方控件。
2、也可以自己写一个。
3、最笨的方法，在事件中动态显示datetimepicker;

Answer 2

最笨的我，想的最笨的方法:
procedure TForm1.Button1Click(Sender: TObject);
begin
DateTimePicker1.Width:=edit1.Width;
DateTimePicker1.Height:=edit1.Height;
DateTimePicker1.Top:=edit1.Top;
DateTimePicker1.Left:=edit1.Left;
Edit1.Text:=DateToStr(DateTimePicker1.Date);
end;procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
edit1.Text:=DateToStr(DateTimePicker1.Date);
showmessage(edit1.Text);
end;

Answer 3

上面的，是两个控件，动态改变其位置。
到          http://www.2ccc.com        第三方