将复选框添加到cxgriddbcolumn(dateedit)
-
04-10-2019 - |
题
我使用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,这是不可能的。
不隶属于 StackOverflow