您好,

我想 正統的作法應該是 繼承後再更改元件.
現在 我試了一個 偷吃步 的方法
就是拉一個 datetimepicker( format 設為 yy/MM/dd), 再拉一個 edit 放在 datetimepicker 的編輯框上
(edit1.top := datetimepicker1.top; edit1.left := datetimepicker1.left; width 自己設到满意的位置 )
然後在 datetimepicker 的 closeup 事件及 edit 的 exit 事件分別寫

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
var astr : string;
begin
astr := tedit(datetimepicker1).Text;
astr := inttostr(strtoint(copy(astr,1,4))-1911) copy(astr,5,6);
edit1.Text := astr;

end;

procedure TForm1.Edit1Exit(Sender: TObject);
var astr : string;
begin
astr := edit1.text;
datetimepicker1.Date :=
encodedate(strtoint(copy(astr,1,2)) 1911, strtoint(copy(astr,4,2)), strtoint(copy(astr,7,2)));
datetimepicker1.Refresh;
end;

當然要自己去保持 edit1 的格式為 yy/mm/dd, 非此格式者給 message .

參考一下

===================引 用 andychen8888 文 章===================
請教各位大大:
DateTimePicker元件秀出的格式是例如2008/10/11也就是西元的格式，我要怎麼把它變成97/10/11就是民國的格式，請各位大大幫小弟解惑！感恩！

st33chen 重新編輯於 2008-11-27 17:33:29， 註解 無‧