大家帮忙阿!还有,Delphi的Help中写道
procedure TForm1.Button1Click(Sender: TObject);begin
  DateSeparator := '-';
  DateFullYear := True;
  DateLeadZero := True;
  Label1.Caption := DateToStr(Date);
end;DateFullYear和DateLeadZero看起来象保留字,但我在程序中却不能用。
DateSeparator却能...我faint

解决方案 »

  1.   

    longdateformat:='yyyy-mm-dd'
    Shortdateformat:='yyyy-mm-dd'
    longdateformat 好象是这样吧!
      

  2.   

    是这样,但是对TDateTimePicker没有影响阿!!!!我加分还不行吗????再加二十分!!!!!!
      

  3.   

    鄙人不才,所写程序中曾有此经历,略说一二:
    project-->view source,在工程文件里(即project.dpr)
    ......
    shortdateformat:='yyyy-mm-dd';
    Application.run;此法虽在datetimepicker中显示之年份也为二位,但已达目的,不信可试之。
      

  4.   

    DateTimePicker控件显示出来的时间本身就是四位呀,不管属性DateFormat设为dfLong或 dfShort,其显示形式为2001-5-9或为2001年5月9日而也
      

  5.   

    YangYun看看你的控制面板。
    如果把长时间和短时间改成两位,您的程序就...了。这样是不能实现通用的。
      

  6.   

    在BDE管理器中配置,使yeardisable为true.
      

  7.   

    s := 'yyyy-mm-dd hh:mm:ss';
    DateTimePicker1.Perform(DTM_SETFORMAT, DWord(nil) ,DWord(s));我也不知行不行。
      

  8.   

    以下程序测试通过(我偷偷装了个Delphi,呵呵):procedure TForm1.Button1Click(Sender: TObject);
    var
            MyDateFormat:string;
    begin
            MyDateFormat:='yyyy-mm-dd';
            SendMessage(DateTimePicker1.Handle, $1005, 0, Longint(PChar(MyDateFormat)));
    end;
      

  9.   

    只需要将 DateTimePicker 控件的DateFormat 设为 dfLong 就可以了。
      

  10.   

    见http://www.csdn.net/expert/topic/100/100336.shtm
      

  11.   

    修改控制面板的时区参数,在datetimepicker自己会变成四位。
      

  12.   

    另外,DateFormat的dfLong随着控制面板的设置不同而不同,这不是我想要的,
    所以也不能给分,对不起。coldljy老兄,您的程序使月一直是十二月,不知为什么
    不管怎样,还是这个方案解决了部分问题