当前位置：文江博客话题详情

向 cxGridDBColumn 添加复选框（DateEdit）

发布于 2024-09-24 01:17:41 字数 106 浏览 7 评论 0原文

我使用 Delphi BDS 2006 并有一个 DevExpress cxGridDBColumn，其属性设置为 DateEdit，并且想知道是否可以向显示的日期时间选择器弹出窗口添加一个复选框？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

南巷近海 2024-10-01 01:17:41

我不确定我是否理解您希望实现的目标。不管怎样，如果不创建一个支持这种外观和感觉以及所需功能的自定义 cxEditor 是不可能的。

回复收藏 0 原文

东京女 2024-10-01 01:17:41

这是一个快速技巧，可以帮助您实现此功能。但是，您应该自己处理该复选框。我已经为独立编辑器完成了此操作，但是，相同的方法也适用于就地编辑器：

procedure TForm1.cxDateEdit1PropertiesPopup(Sender: TObject);
var
  AEdit: TcxDateEdit;
  ACalendar: TcxPopupCalendar;
  ACheckBox: TcxCheckBox;
begin
  AEdit := TcxDateEdit(Sender);
  if AEdit.Tag <> 1 then
  begin
    AEdit.Tag := 1;
    ACalendar := TcxPopupCalendar(AEdit.Properties.PopupControl);
    ACheckBox := TcxCheckBox.Create(Self);
    ACheckBox.Parent := ACalendar.Parent;
    ACheckBox.Align := alBottom;
    ACheckBox.Transparent := True;
    ACalendar.Parent.Height := ACalendar.Parent.Height + ACheckBox.Height;
  end;
end;

Here is a quick hack which should help you implement this feature. However, you should handle the checkBox yourself. I have done this for the standalone editor, however, the same approach will work with the inplace editor:

procedure TForm1.cxDateEdit1PropertiesPopup(Sender: TObject);
var
  AEdit: TcxDateEdit;
  ACalendar: TcxPopupCalendar;
  ACheckBox: TcxCheckBox;
begin
  AEdit := TcxDateEdit(Sender);
  if AEdit.Tag <> 1 then
  begin
    AEdit.Tag := 1;
    ACalendar := TcxPopupCalendar(AEdit.Properties.PopupControl);
    ACheckBox := TcxCheckBox.Create(Self);
    ACheckBox.Parent := ACalendar.Parent;
    ACheckBox.Align := alBottom;
    ACheckBox.Transparent := True;
    ACalendar.Parent.Height := ACalendar.Parent.Height + ACheckBox.Height;
  end;
end;

回复收藏 0 原文

~没有更多了~