Es gibt dann noch TMaskEdit. Da hat man aber keine Kalender-Auswahl.
Alternativ ein TEdit zum Eingeben:
Delphi-Quellcode:
procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
If not (key in [#48..#57,#8]) then
key := #0;
end;
procedure TForm.ButtonClick(Sender: TObject);
begin
DateTimePicker1.Date := StrToDate('01.01.' + Edit.Text);
end;
Gruß,
ManuMF