DateTimePickerのDateを設定した時にイベントを発生させたい

解決

みみ 2005-06-01 16:46:38 No: 15252 IP: 192.*.*.*

お世話になります。
今、DateTimePickerを使って日付の選択を行おうと思っているのですが、
それと同時に、ボタンを使って前月や次月などの移動をやりたいと思っています。
そこで、ボタンを押した際、DateTimePickerのDateを更新して、DatetimePickerのChangeイベントを拾えたら日付の移動と同じ処理を共有できると考えました。しかし、Dateを変更しただけではChangeイベントが発生しないようなのでどうしようかな〜と考えているところです。
処理を関数にするのもありですが、こういう経験がある型もいるのでは？と思い質問させていただきました。
よろしくお願いします。

編集削除

deldel 2005-06-01 17:18:58 No: 15253 IP: 192.*.*.*

TMonthCalendarじゃあ、だめなんですか？

編集削除

みみ 2005-06-03 11:23:18 No: 15254 IP: 192.*.*.*

常時カレンダーを表示させておきたくないのです。
前後の日付移動がベースにあって、必要なときにカレンダーでも日付を選択できるという形にしたいと思っています。
なので、DateTimePickerがベストだと思ったのですが。

編集削除

にしの 2005-06-03 11:48:03 No: 15255 IP: 192.*.*.*

関数を作ってみました。
TNMDateTimeChangeを使うのに、CommCtrlをuses節に追加する必要があります。

procedure SetDateTimePickerDateTime(dtp: TDateTimePicker; dt: TDateTime);
var
  nmDtc: TNMDateTimeChange;
  st: TSystemTime;
begin
      DateTimeToSystemTime(dt, st);
      nmDtc.nmhdr.hwndFrom := dtp.Handle;
      nmDtc.nmhdr.idFrom := 0;
      nmDtc.nmhdr.code := DTN_DATETIMECHANGE;
      nmDtc.dwFlags := GDT_VALID;
      nmDtc.st := st;

      dtp.Perform( WM_NOTIFY, 0, Integer(@nmDtc) );
end;

編集削除

駄目？ 2005-06-03 11:53:02 No: 15256 IP: 192.*.*.*

>しかし、Dateを変更しただけではChangeイベントが発生しない…
イベントハンドラを呼び出すのはダメなの？

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimePicker1.Date := IncMonth(DateTimePicker1.Date, -1);
  DateTimePicker1Change(Self);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DateTimePicker1.Date := IncMonth(DateTimePicker1.Date, +1);
  DateTimePicker1Change(Self);
end;

編集削除

みみ 2005-06-03 14:09:54 No: 15257 IP: 192.*.*.*

ボタンを押した際に、イベントハンドラを毎回コールする方法をとった場合、
日付の更新を処理的に組み込むところには必ずそのイベントハンドラを記述する必要があり、それは避けてDateTimePickerのイベントだけでハンドリングしたいと思ったのです。

にしの様
関数の提供ありがとうございます。
本関数でDateTimePickerのDateを更新することで、更新イベントが発生しました。無事解決しました。ありがとうございました。

便乗して質問なのですが、
DateTimePickerのカレンダーを開いて、カレンダーの日付をクリックすると、
OnClickイベントが続けて２回発生するようなのですが、これはMonthCalendarのOnClickとPickerのOnClickなのでしょうか？

編集削除

みみ 2005-06-07 13:36:13 No: 15258 IP: 192.*.*.*

ありがとうございました。

編集削除