mimi (ID:36969)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは。 > date型だから不可能なのでしょうか？ そうなりますね。 procedure TForm1.SetDate(aDate: TDateTime); begin DateTimePicker1.ShowCheckBox := True; if aDate = -1 then DateTimePicker1.Date := Date else DateTimePicker1.Date := aDate; DateTimePicker1.Checked := (aDate <> -1); end; ShowCheckBox を True に設定しておき、 チェックボックスのチェックの有無で "空の日付かどうか" を表現するしかないように思えます。