| [10493] Re3:TCalendarを使用した日付ピッカー | 返信 削除 |
| 2016/11/13 (日) 14:30:23 Mr.XRAY |
|
> おかげ様で勉強させて頂いております．あまり勉強したくないけど．ホホホッ． 画面をみると DFMコンバータ というのが... で，ものはついでにと Delphi 5 でもやってみました． TplDateEdit のソースコードの修正が必要です． バージョン判定で，一番下のバージョンのコードだけ残して後は削除． それでもエラーが発生したので適時修正． TplDateEditPicker は，Delphi 6 の時と同じ修正，変更． カレンダの表示位置の制御では，TScreen.MonitorFromPoint が使えないですね． このカレンダの表示位置のコードは，画面左端と下端の時だけなので， この部分を削除して，以下のようにしてみました． カレンダの文字の色は変えた方がいいような気もします． しかし，Delphi ってスゴイですね． 謎全さんの Delphi 2 用のコンポーネントだって，修正すれば，Delphi XE で 使えるますからね． //----------------------------------------------------------------------------- // TplDateEditの右側に配置したOnMouseDownイベント処理 // ここでカレンダーを載せたフォームの表示，非表示を切り替える //----------------------------------------------------------------------------- procedure TplDateEditPicker.OnMouseDownEventBtnCalendar(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var CalendarFormPos : TPoint; ParentForm : TCustomForm; begin if Assigned(FCalendarForm) then begin if FCalendarForm.Visible then begin FCalendarForm.Close; CloseUpCalendar(1); exit; end; end; CalendarFormPos := TWinControl(Parent).ClientToScreen(Point(Self.Left, Self.Top)); if not Assigned(FCalendarForm) then begin //カレンダーを表示するフォームとコントロール類を生成 CreateFormAndControls(CalendarFormPos); end; //必要であればTMonitorやMultiMonユニットの関数類を使用して表示位置を設定する FCalendarForm.Top := CalendarFormPos.Y + Self.Height; FCalendarForm.Left := CalendarFormPos.X; FCalendarForm.Show; FCalendar.StartOfWeek := FStartOfWeek; FCalendar.SetFocus; //TCalendarのOnChangeイベントを発生させる FCalendar.CalendarDate := Self.Date; ParentForm := GetParentForm(Self); PostMessage(ParentForm.Handle, WM_NCACTIVATE, 1, 0); end;  |
