一网友的问题，有兴趣的进来看看，无知而又狂妄的谢绝。

Question

在使用DateTimePicker的过程中，DateTimePicker的kind只有两种格式，要么显示时间，要么显示日期，怎么做到日期时间都显示呢？   欢迎下列人士解答：
   
   intraweb(★一天到晚灌水的鱼★)    microjuz(天才弟弟)    hansion3406(阿木㊣拖鞋男)   richie_cn(追风无影剑)

Answer 1

用个EDIT显示DateTimePicker，日期和时间点EDIT触发DateTimePicker，出来后EDIT.text:=datetimetostr(DateTimePicker.datetime);

Answer 2

看来我说得不太清楚，不要用到别的控件或是第三方控制，简单的一个DateTimePicker要实现这个功能。

Answer 3

简单的一个DateTimePicker要实现这个功能。
我的知识水平只能说不行...

Answer 4

yy:MM:dd:hh:mm:ss我的电脑上好象行的，不过它的时间要另外赋值。
比如在onchange事件里加上
datetimepicker1.time:=now();

Answer 5

FormatDateTime('yy-mm-dd hh:mm:ss',DateTimePicker1.Date)
为什么要指名回答？

Answer 6

FormatDateTime('yy-mm-dd hh:mm:ss',DateTimePicker1.Date)
另外：
-----------------------------————————————————
无知而又狂妄的谢绝。……欢迎下列人士解答：
 
   intraweb(★一天到晚灌水的鱼★)    microjuz(天才弟弟)    hansion3406(阿木㊣拖鞋男)   richie_cn(追风无影剑)
  szkingrose(szkingrose) ( ) 信誉：100  2003-07-16 15:33:00  得分:0 
  
 
  不，知道的就解答，但我最想知道上面几个人是知道了不说还是不知道？——————————————————————————————————————这是什么意思？  
 

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
begin
DateTimePicker1.Format:=FormatDateTime('yy-mm-dd hh:mm:ss',DateTimePicker1.Date);
end;
另外：
-----------------------------————————————————
无知而又狂妄的谢绝。……欢迎下列人士解答：
 
   intraweb(★一天到晚灌水的鱼★)    microjuz(天才弟弟)    hansion3406(阿木㊣拖鞋男)   richie_cn(追风无影剑)
  szkingrose(szkingrose) ( ) 信誉：100  2003-07-16 15:33:00  得分:0 
  
 
  不，知道的就解答，但我最想知道上面几个人是知道了不说还是不知道？——————————————————————————————————————这是什么意思？  
 

Answer 8

初始化时:
  DateTimePicker1.Format:=' MM dd, yyyy,HH : mm';

Answer 9

procedure TForm1.Button1Click(Sender: TObject);
begin
DateTimePicker1.Format:=FormatDateTime('yy-mm-dd hh:mm:ss',DateTimePicker1.Date);
end;
另外：
-----------------------------————————————————
无知而又狂妄的谢绝。……欢迎下列人士解答：
 
   intraweb(★一天到晚灌水的鱼★)    microjuz(天才弟弟)    hansion3406(阿木㊣拖鞋男)   richie_cn(追风无影剑)
  szkingrose(szkingrose) ( ) 信誉：100  2003-07-16 15:33:00  得分:0 
  
 
  不，知道的就解答，但我最想知道上面几个人是知道了不说还是不知道？——————————————————————————————————————这是什么意思？  
 

Answer 10

狗屎csdn！我提交老是出错！出了三次以后竟然说我提交超过3次！  晕！一直到 walterwl(弱智浩二) 提交了，我才能提交！气死我了！！！

Answer 11

狗屎csdn！我提交老是出错！出了三次以后竟然说我提交超过3次！  晕！一直到 walterwl(弱智浩二) 提交了，我才能提交！气死我了！！！

Answer 12

谢谢各位的回复。 
 
    我可以等，等到这四个人出来为止。其实我想实现的功能是这样：
    1.在一个DateTimePicker中，日期时间全部显示出来。
    2.在设置DateTimePicker的DateMode=dmUpDown后，要能自动实现时间日期判断且不出现错误对话框（如月份是2的话，天数调整就不能大于28天这个范围）。
    3.此功能要在一个软件中实现定时提醒功能。不想别的控件代替。

Answer 13

可能我不能理解,但我真的不知道 szkingrose(szkingrose)要达到什么目的

Answer 14

等我做什么???
如果要我选择的话..我宁愿用第三方控件..
因为写一个VCL是很烦的..而我又不想太烦.. -_-你实现的可能就像WIN自带的那个时钟一样,无非就加入一个提醒的功能而已..
ABC的控件或TMS或..RXLIB2.75里面就有了..如果你想知道怎么实现的话..
你可以看它的VCL源码..没必要为这玩意再重写一个..呵呵..因为偶懒...
*^_^*________________________
我正学C++呢..最近闲得要命

Answer 15

怎么才出来一个呢？其他的三个怎么不见了。hansion3406(阿木㊣拖鞋男) ，我想问问你，这个问题你是否知道？http://expert.csdn.net/Expert/topic/1833/1833240.xml?temp=.2793543上面是我前段时间贴的一个网上没有人贴过的东西。如果我今天将此贴的答案有很简单的代码写出来，会不会又中了你们的笑话？如果你不知道，请你不要再发表反对的言论，因为我不想对已知道的人再贴出此贴的答案。我想不知道的网友还是想知道答案的。

Answer 16

放两个然后把他们的相加不就ok了
strtodatetime(datetostr(dtp.date)+''+timetostr(dtp.time))

Answer 17

呵呵..如果以前有什么得罪之处..呵呵..敬请原谅..
SORRY..-_-

Answer 18

谢谢参与的各位，结果现在还是没有正确的。——————————————————————————……回复人： walterwl(弱智浩二) ( ) 信誉：105  2003-07-16 16:58:00  得分:0 
 
 
  初始化时:
  DateTimePicker1.Format:=' MM dd, yyyy,HH : mm';
  
 
Top 
 
 回复人： myling(阿德) ( ) 信誉：101  2003-07-16 17:00:00  得分:0 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
DateTimePicker1.Format:=FormatDateTime('yy-mm-dd hh:mm:ss',DateTimePicker1.Date);
end;
这是什么？不对吗？不是你要的吗？ 
 

Answer 19

程序例子如下：
http://newhua.com/showatt.asp?filename=20030717090230_51$Project1.exe.att&pt=&count=0&GRSN=5942194&sname=&sfname=
如果没有达到这个程序中要相同功能（也就是日期，时间能调动），就不算正确。

Answer 20

在Timer1: TTimer;的事件中，
Form1.Label1.Caption := FormatDateTime('yyyy年m月d日  hh:nn', Now);我是从大富翁论坛里给链接过来的，不知道楼主发此贴的目的何在，也懒得去知道。后面的回复贴子没怎么去看，只出于学习与交流的初衷，把我自己知道的东西发表一下，不对请指正！

Answer 21

晕procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
DateTimePicker1.Format:=FormatDateTime('yy-mm-dd hh:mm:ss',DateTimePicker1.Date);
end;

Answer 22

DateTimePicker1.DateMode := dmUpDown;
DateTimePicker1.Kind := dtkTime;
的时候用
DateTimePicker1.Format:='yyyy-mm-dd hh:mm:ss';
可以实现的啊,不知道为什么楼主说不行.

Answer 23

哈哈，好笑。哈哈，有趣。The heroes of Might and Magic我最喜欢。我写计划书去了，懒得管……

Answer 24

一个神经病,
DateTimePicker1.Format:='yyyy-mm-dd hh:mm:ss';这是第一个问题的解决;
要做判断你在onchange里加入代码判断就是.
如果是与数据库相关的话,你不知道写stored procedure 和trigger啊
又没有积分的,滚

Answer 25

如果谁需要例子，留下EMail。

Answer 26

[email protected] 兄弟们全是163的啊..

Answer 27

靠还没给源码，只有个exe也就那么回事了你这个玩艺根本不用写代码，设设属性就完了object DateTimePicker1: TDateTimePicker
    Left = 208
    Top = 168
    Width = 186
    Height = 21
    CalAlignment = dtaLeft
    Date = 37819.4515626736
    Format = 'yy-MM-dd hh:mm:ss' //这个
    Time = 37819.4515626736
    DateFormat = dfShort
    DateMode = dmUpDown //这个
    Kind = dtkTime     //这个
    ParseInput = False
    TabOrder = 0
  end
楼主，你是不是自己不会，在这玩花样呀？就这样的玩艺你有什么在那臭屁的？

Answer 28

to myling(阿德) 
   何必和楼主动气呢，
to 楼猪
    楼主也不必恼人嘛，大家都是来这里交流学习的，互相帮助嘛，至于吗

Answer 29

myling(阿德) ，如果我没有发例程给你，你能否做出来？我要是做不出来，会有例程给你吗？发Exe给你，就是告诉你，很简单的设定就可以了，为什么那么多人不知道。看看DelphiBBS上有多少人问了没有结果？如果我就这样简单的贴出结果，肯定有很多人说这么简单，我早知道了之类的话。我可能不是虚心，但至少针对别人有个起码的尊重。对于别人的看法，我可能不在意，但我不能容忍这种性格。

Answer 30

对于我说过的话...
洪某再次道歉...并诚心自闲N天..(N>7天)
面壁思过...
对不起楼主..如果真的在那贴上的话伤了你的心灵的话..
我再次道歉...
请原谅我的无耻..自大,狂妄和无知!

Answer 31

以后我保证会努力保持严肃认真求知的学习态度...
BTW:如果还有别人对洪某本人表示不满的话..还请多多原谅...
在下年轻气盛,不懂为人之道..
这个毛病我一定改...下不为例!!!

Answer 32

以后我保证会努力保持严肃认真求知的学习态度...
BTW:如果还有别人对洪某本人表示不满的话..还请多多原谅...
在下年轻气盛,不懂为人之道..
这个毛病我一定改...下不为例!!!

Answer 33

Format --> yyyy/MM/dd hh:mm:ss
Kind   --> dtkTime这样对日期和时间便可以 使用上下键操作

Answer 34

坦白的说
没有例程，我做不出来
因为我都不知道是什么样的，怎么做？但是这个确实没有什么技术含量呀？自己琢磨一下就搞定了楼主你不觉的你这样，把有些东西看的太重了吗？
包括你的那几个贴子我看了下====================================================================================搜索（全部论坛） 
 作者：szkingrose   关键字：%  
 
  时间：2003年数据 
  最新：5篇  1   
 
   
    问 题 分数 回复 时间 功能 
 
 
r一网友的问题，有兴趣的进来看看，无知而又狂妄的谢绝。（szkingrose） 0 53 7-17 11:54 管理 
r公布一个秘籍，关于这方面有分的别忘记了让我拿哟。（szkingrose） 0 54 7-16 21:30 管理 
r公布一个秘籍，关于这方面有分的别忘记了让我拿哟。（szkingrose） 0 8 6-12 16:37 管理 
r公布一个秘籍，关于这方面有分的别忘记了让我拿哟。（szkingrose） 0 4 5-26 08:41 管理 
r公布一个秘籍，关于这方面有分的别忘记了让我拿哟。（szkingrose） 0 2 5-26 08:40 管理 
 
最新：5篇  1   
  
============================================================================这是你在csdn上今年所有的贴子（不知道你是不是马甲）你的那个所谓的秘籍，至于发4贴吗？不知道你报的什么想法

Answer 35

我三个月后再来CSDN灌水吧...
不然真的有些不好意思...
自闭练功!!(^_^ 怎么听起来很像自宫??)

Answer 36

我从来没在csdn上和谁过不去
但是看了你这个贴子，确实生气
=====================================================================
无知而又狂妄的谢绝。……欢迎下列人士解答：
 
   intraweb(★一天到晚灌水的鱼★)    microjuz(天才弟弟)    hansion3406(阿木㊣拖鞋男)   richie_cn(追风无影剑)
   ……  最想知道上面几个人是知道了不说还是不知道？  ……  谢谢各位的回复。 
 
  我可以等，等到这四个人出来为止。
……
  怎么才出来一个呢？其他的三个怎么不见了。
……
我想知道如果我在公布答案后，会有多少人知道了而不说？
风凉话我听多了，我不想再听风凉话了。
前面点名回答的四个在我的上贴中说的话让我感觉不爽,
所以先让他们看看，结果只有一位回贴了。其实三个可能没看到，也可能看到了
没有出声。如果此贴的回贴超过50（不包括我自己的回贴），我就自己贴出答案。
还是谢谢参与的各位，结果现在还是没有正确的。
……
程序例子如下：
http://newhua.com/showatt.asp?filename=20030717090230_51$Project1.exe.att&pt=&count=0&GRSN=5942194&sname=&sfname=
如果没有达到这个程序中要相同功能（也就是日期，时间能调动），就不算正确。看你的口气，感觉是来咂场子的你有什么不爽的？拖了几控件，拿过来当成宝贝了！你看看  阿木㊣拖鞋男  的回贴，再看看他以前回答的问题，说你那个玩艺简单你还不服？我现在也不爽！和你明说了吧！你说的那几个人全是我朋友！我觉得他们说的对！

Answer 37

是朋友怎么了，朋友有什么大不了的？如果真认为不行，嗤之以鼻，如果知道不说且还扇风点火，那就是自大。这贴是没有技术含量，本来这贴没有技术含量。我也没打算用这贴来证明什么，我只不过用来证明为什么那么多贴子没答案，没有结贴。
    简单怎么了，简单怎么以前没有人来说，我本好心意不想招惹谁。我拿这东西来臭屁，你又拿什么臭屁？分析.EXE看dfm来臭屁？

Answer 38

发个给我看看？
[email protected]

Answer 39

呵呵,偶喜欢当和事老~~~~~
szkingrose  你自己回想一下,你自己是否是过于认真了?虽说阿木,天才他们一开始是说的不好听,但他们是无心之言,而且现在也承认错误了,你可以看看他们给别人的回帖,一般解释技术方面都十分细致,而天才兄不论和谁说话都是那样的,并不是只对你一人如此,
  你又何苦这么样.你看看你这个帖子里的回帖哪个不是带刺的?干程序员本来就十分苦,累,何必再互相攻击?搞得都不痛快?
  //AD兄呢,从你开始对这个0分贴十分关注,尽心回答问题,后来为了朋友不惜发这么大的火,从这里可以看出AD兄是个热心肠而又肯为了朋友两肋插刀的人物,
  //不过大家也能看出 szkingrose开始的本意是为了让大家知道更多的技术知识,虽说他说话不太好听,但是也不该这么狂批啊:).
   我是个小人物,只是希望大家都有更多的时间来讨论技术...

Answer 40

我想说的都说完了，不想再说了，这贴子也到此结束，从此与我无关谢谢 弱智浩二  bbs791109(小别) 、 superhjw(黄锦云) 你们两个什么意思？别惹我啊

Answer 41

to myling(阿德)那么大脾气干什么，气大伤身。

Answer 42

不管怎么样，此贴结了。
从交流上来讲，谢谢myling(阿德），如果从个人恩怨来讲，我真饶不了你。
谢谢大家的参与。

Answer 43

楼主给我一份：[email protected]

Answer 44

楼主给我一份：[email protected]，谢谢！

Answer 45

从交流上来讲，谢谢myling(阿德），如果从个人恩怨来讲，我真饶不了你。====================================================================哈哈你要是这么说，我还真的乐了你这个家伙有点意思，哈哈

Answer 46

就是被这两个家伙骂了不爽！
bbs791109(小别) 、 superhjw(黄锦云)