Mic777
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| Кто нибудь заморачивался, что в TcxDateEdit была возможность выбора только месяца и года. Ввод по формату - тут все легко, но мне еще нужен и выбор мышкой нормальный, а вот это пока никак не решил. А переписывать компонент не очень хочется |
Такой вариант, когда выбираешь что хочешь, но день всегда остается текущий (тут только вопрос с 31-м и 29 февраля), ну или можно всегда на первый или последний день месяца устанавливать (зависит от требований) не устроит?
Код:
procedure TForm1.cxDateEdit1PropertiesChange(Sender: TObject);
var
W, M, D, DOW,
W1, M1, D1, DOW1: Word;
begin
DecodeDateFully(TcxDateEdit(Sender).Date, W, M, D, DOW);
DecodeDateFully(Now, W1, M1, D1, DOW1);
TcxDateEdit(Sender).Date := EncodeDate(W, M, D1);
end;
|
|
Всего записей: 90 | Зарегистр. 15-12-2005 | Отправлено: 10:07 22-09-2016 | Исправлено: Mic777, 10:23 22-09-2016 |
|
