请教：如何设置datetimepicker从星期一开始？

2013-03-18 01:15:38 921 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DateTimePicker控件(日期时间选择器)《笔记5》 DateTimePicker控件使用笔记如何取年限，时间的数据? 关键词(Value) #region Value显示模式 label5.Text = "年限：" + dateTimePicker4.Value.Year.ToString(); label6.Text = "月限：" + dateTimePicker4.Value.Month.T 阅读详情

如图，
左边的为 MonthCalendar，可通过属性 FirstDayOfWeek:=dowMonday;设置从星期一开始
右边的是展开的 DateTimePicker，不知何故DateTimePicker并没有把FirstDayOfWeek属性继承下来，所以没法设置，我曾尝试在type里增加
Type
Tmydatetimepicker = class (TDateTimePicker);

或者
Type
Tmydatetimepicker = class (TCommonCalendar);

然后再调用
procedure TForm1.FormCreate(Sender: TObject);
begin
Tmydatetimepicker(DateTimePicker1 ).FirstDayOfWeek:=dowMonday;
end;

编译通过，但实际上并不起作用，DateTimePicker仍然是从星期日开始~请大牛们指点，谢谢！

...全文

win11本地部署openclaw实操第5集-X11图形化界面搭建，让WSL2“看见”世界本文介绍了在WSL2中实现图形界面(GUI)的方法。由于WSL2默认没有图形界面，需要使用X11服务器作为"翻译显示器"，将Linux程序的图形指令渲染到Windows窗口中。推荐使用VcXsrv作为X11服务器，详细说明了其安装和配置步骤，包括选择"One large window"显示模式、禁用访问控制等关键设置。随后在Ubuntu中安装轻量级xfce4桌面环境，并通过设置DISPLAY环境变量将图形输出指向VcXsrv。最终通过startxfce4命令成功在Vc 阅读详情

fox600123

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

fox600123 2013-03-18

打赏
举报

呵呵，问题完美解决，谢谢~

sololie 2013-03-18

打赏
举报

引用 4 楼 sololie 的回复:

Delphi/Pascal code?123456// 可以再简化点，一句写完procedure TForm1.dtp1DropDown(Sender: TObject);begin SendMessage(SendMessage(dtp1DropDown.Handle, $1000 + 8, 0, 0), $1000 + 15, 0, 1) // 最后的参……


  SendMessage(SendMessage(dtp1.Handle, $1000 + 8, 0, 0),
          $1000 + 15, 0, Ord(dowMonday))
// 或
  SendMessage(SendMessage(dtp1.Handle, $1000 + 8, 0, 0),
    $1000 + 15, 0, 0)

sololie 2013-03-18

打赏
举报

高个P，都是初学者，这些方法都可以在源码里找到。 sendmessage的第一个参数是datetimepicker的handle，贴了两次代码都写错了。

fox600123 2013-03-18

打赏
举报

引用 4 楼 sololie 的回复:

Delphi/Pascal code?123456// 可以再简化点，一句写完procedure TForm1.dtp1DropDown(Sender: TObject);begin SendMessage(SendMessage(dtp1DropDown.Handle, $1000 + 8, 0, 0), $1000 + 15, 0, 1) // 最后的参……

您水平这么高，想象不出您是怎么学习的？呵呵~

fox600123 2013-03-18

打赏
举报

引用 3 楼 sololie 的回复:

Delphi/Pascal code?123456789101112// 最简单的方法就是在 DateTimePicker 的 DropDown 事件中处理相应的消息即可 procedure TForm1.DateTimePicker1DropDown(Sender: TObject);var DOWFlag: Integer; hmw: HWND;begin DO……

您太强悍了，再次感谢~~

sololie 2013-03-18

打赏
举报


// 可以再简化点，一句写完
procedure TForm1.dtp1DropDown(Sender: TObject);
begin
  SendMessage(SendMessage(dtp1DropDown.Handle, $1000 + 8, 0, 0),
      $1000 + 15, 0, 1)  // 最后的参数 1 即 dowMonday
end;

sololie 2013-03-18

打赏
举报


// 最简单的方法就是在 DateTimePicker 的 DropDown 事件中处理相应的消息即可

procedure TForm1.DateTimePicker1DropDown(Sender: TObject);
var
  DOWFlag: Integer;
  hmw: HWND;
begin
  DOWFlag := ord(dowMonday);
  hmw := SendMessage(dtp1.Handle, $1000 + 8, 0, 0);
  if hmw > 0 then
    SendMessage(hmw, $1000 + 15, 0, DOWFlag)
end;

fox600123 2013-03-18

打赏
举报

以前我看过一个汉化DBnavigator的范例，就是用这种方法，我也试过可行，但到这里就不起作用了，可能是情况不一样吧

UnkownState 2013-03-18

打赏
举报

不同的控件，不能这样强制转换

请教：如何设置datetimepicker从星期一开始？

相关推荐