إضافة خانة اختيار إلى CxGriddBcolumn (DateDit)
-
04-10-2019 - |
سؤال
أنا أستخدم Delphi BDS 2006 ولدي DevexPress cxgriddbcolumn مع خصائص محددة حتى DimeDit وكنت أتساءل عما إذا كان من الممكن إضافة خانة اختيار إلى popup time time المعروضة؟
المحلول
إليك اختراق سريع يجب أن يساعدك في تنفيذ هذه الميزة. ومع ذلك ، يجب عليك التعامل مع خانة الاختيار بنفسك. لقد فعلت ذلك لمحرر مستقل ، ومع ذلك ، فإن نفس النهج سيعمل مع المحرر الموجود:
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