DateTimePickerで月初を初期表示する

ROZE 2012-05-30 04:55:50 No: 42380

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

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

studio-take 2012-05-30 05:20:43 No: 42381

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

ROZE 2012-05-30 20:26:22 No: 42382

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

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

deldel 2012-05-31 01:03:28 No: 42383

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

studio-take 2012-05-31 03:42:52 No: 42384

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

studio-take 2012-05-31 03:47:52 No: 42385

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

igy 2012-05-31 06:31:35 No: 42386

DateUtils を uses に追加して、

DateTimePicker1.Date := StartOftheMonth(Now);

はいかがですか？