不改控制面板，如何能让DataTimePicker显示四位年份？请注意，不改控制面板。

Question

不行吧老兄，你在你的Delphi里试试再回答，我是说在DateTimePicker中！
不要误导青少年么:)

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  DefaultLCID:LCID;
begin
  DefaultLCID:=GetThreadLocale;
  ShortDateFormat:='yyyy-mm-dd';
  SetLocaleInfo(DefaultLCID, LOCALE_SSHORTDATE, pchar(ShortDateFormat));
end;

Answer 2

Thanks dearmyfriend.但你的方法只能更改TDate的显示方式，
对DateTimePicker仍是没有影响。我还是加不了分。JavaScript出错！

Answer 3

  DateTime_SetFormat(DateTimePicker1.Handle, 'yyyy年M月d日');//CommCtrl单元coldljy的回答中的错误是：表示月份的'M' 应该大写。

Answer 4

将DateTimePicker1组件的属性DateFormat设置为dfLong

Answer 5

to:bisc_sunny
chenshirong 的方法是最简单的不信你试试

Answer 6

1.将DateTimePicker1组件的属性DateFormat设置为dfLong；
2.可以在代码中的主窗体的onshow事件中加入：
  longtimeformat:= 'hh:mm:ss';
  longdateformat:= 'yyyy''年''mm''月''dd''日''';
  shortdateformat := 'yyyy-mm-dd';
  twodigityearcenturywindow := 50;