DateTimePickerで月初を初期表示する

---

タイトルの通り、DateTimePickerで当月の月初を初期表示したいのですが、
簡単なやり方でできる方法をご教授願いたいです。

Formatでyyyy/MM/01にしたところ、カレンダーを変えても反映されず
固定で０１日が表示されるだけでした。。

編集    削除

---

これでどうですか？
DateTimePicker.Date := EncodeDate(YY,MM,1);

編集    削除

---

早々のご教授ありがとうございます。
上記を実行しましたが、日付に変換できない値がわたされました。
というエラーが返ってきました。

EncodeDateは直にDateTimePicker.Dateに代入はできないのでしょうか？

編集    削除

---

こう？
var
  s: string;
begin
  s := FormatDateTime('n', Now);
  DateTimePicker1.Date := Now - StrToInt(s) + 1;

編集    削除

---

これならどうだ！
var
  YY,MM,DD:Word;
begin
  DecodeDate(Date,YY,MM,DD);
  dtpStartLog.Date    := EncodeDate(YY,MM,1);

編集    削除

---

間違えた。
var
  YY,MM,DD:Word;
begin
  DecodeDate(Date,YY,MM,DD);
  DateTimePicker.Date    := EncodeDate(YY,MM,1);

編集    削除

---

DateUtils を uses に追加して、

DateTimePicker1.Date := StartOftheMonth(Now);

はいかがですか？

編集    削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。