Aggiunta di una casella di cxGridDBColumn (DateEdit)
-
04-10-2019 - |
Domanda
I utilizzando Delphi BDS 2006 e hanno un DevExpress cxGridDBColumn con proprietà impostate per DateEdit e chiedevo se è possibile aggiungere una casella di controllo alla data ora selettore popup visualizzata?
Soluzione
Ecco un trucco veloce che dovrebbe aiutare a implementare questa funzione. Tuttavia, si dovrebbe gestire la casella di controllo da soli. Ho fatto questo per l'editor standalone, tuttavia, lo stesso approccio funzionerà con l'editor inplace:
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;
Altri suggerimenti
Non sono sicuro di aver capito quello che si vuole ottenere. In ogni caso, non è possibile senza creare un cxEditor personalizzato che supporta questo look & feel e funzionalità desiderata.
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow