線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2541
推到 Plurk!
推到 Facebook!

怎么样才可以清空DATETIMEPICKER里面的值

答題得分者是:st33chen
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-04-18 07:17:07 IP:222.70.xxx.xxx 訂閱
不是在设计期里面,我想要在程序运行的动态下面,我用DATETIMEPICKER.date:=0,好像不行啊,用format好像也不行
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-04-18 08:29:38 IP:122.116.xxx.xxx 未訂閱
您好,

tdatetimepicker 的元件設計一定會有值,
給 0 是代表 1899 最後一天 ( 怪的是, 我實測是 1899-12-30 );

若硬要做的話, 可能要改元件, 不然可以試一下 :
用一個 tedit 疊在上面, 設 ctl3d := false; borderstyle := bsnone; 並適當調整其 left, top, height, width
以遮住 tdatetimepicer 的顯示部份;
並且
procedure TForm1.Edit1Enter(Sender: TObject);
begin
edit1.Visible := false;
datetimepicker1.SetFocus;
end;
procedure TForm1.DateTimePicker1DropDown(Sender: TObject);
begin
edit1.Visible := false;
inherited;
end;

說不定有高手知道其他解法.
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-04-18 11:54:00 IP:61.67.xxx.xxx 未訂閱
用 TMaskedit+TSpeedButton+TMonthCalendar 也可以達到 DateTimePicker的功能與十分接近的畫面, 只要少少的幾行語法就好了, 更可以海闊天空, 你自己先拉這些元件來看看
===================引 用 zhouying82 文 章===================
不是在设计期里面,我想要在程序运行的动态下面,我用DATETIMEPICKER.date:=0,好像不行啊,用format好像也不行
系統時間:2024-05-19 14:15:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!