Добавление флажка в cxGridDBColumn (DateEdit)

Question

Я использую Delphi BDS 2006 и у меня есть DevExpress cxGridDBColumn со свойствами, установленными в DateEdit, и мне было интересно, можно ли добавить флажок в отображаемое всплывающее окно выбора времени и даты?

Answer 1

Я не уверен, что понимаю, чего вы хотите достичь.В любом случае, это невозможно без создания собственного cxEditor, который поддерживает этот внешний вид и желаемую функциональность.

Answer 2

Вот быстрый взлом, который должен помочь вам реализовать эту функцию. Тем не менее, вы должны обрабатывать checkBox самостоятельно. Я сделал это для автономного редактора, однако тот же подход будет работать с редактором на месте:

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;