我使用Delphi BDS 2006,并具有DEVEXPRESS CXGRIDDBCOLUMN,其属性设置为DateDeDit,并且想知道是否可以在显示的日期选择器弹出窗口中添加复选框?

有帮助吗?

解决方案

这是一个快速入侵,可以帮助您实现此功能。但是,您应该自己处理复选框。我已经为独立编辑做到了这一点,但是,同样的方法将与内置编辑器一起使用:

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;

其他提示

我不确定我了解您想要实现的目标。无论如何,如果不创建支持这种外观和所需功能的自定义CXEditor,这是不可能的。

许可以下: CC-BY-SA归因
不隶属于 StackOverflow
scroll top