Раскрытое окно в TDateTimePicker

← →
Евгений Р. (2007-12-11 21:33) [0]

Как определить у TDateTimePicker открыто ли сейчас окно с календариком, либо пользователь изменяет текст?

← →
DVM © (2007-12-11 21:37) [1]

А что требуется сделать в результате?

← →
Евгений Р. (2007-12-11 21:56) [2]

Обнаружить внесение изменений, и, при необходимости записать в БД.
Кажется DroppedDown?

← →
DVM © (2007-12-11 21:58) [3]

А чем не устроило событие OnChange ?

← →
Евгений Р. (2007-12-11 22:03) [4]

Оно отрабатывает при перемещении по календарю. Если побродив пользователь нажмет Esc, то значение вернется к первоначальному, а собітие уже біло візвано.

← →
DVM © (2007-12-11 22:10) [5]

> Если побродив пользователь нажмет Esc, то значение вернется
> к первоначальному, а собітие уже біло візвано.

А в чем проблема то? Ну вызвано и вызвано. Ты не пиши в базу сразу по этом событию, а пиши по нажатию кнопки сохранить изменения.

← →
Евгений Р. (2007-12-11 22:15) [6]

Кнопка "Сохранить" станет доступной после перевода таблици в dsEdit, по событию onStateChange. Круг замкнулся?

← →
DVM © (2007-12-11 22:26) [7]

> Кнопка "Сохранить" станет доступной после перевода таблици
> в dsEdit, по событию onStateChange. Круг замкнулся?

Какой круг? В чем проблема не пойму. Изменил юзер запись/ не изменил пиши в любом случае то что есть по нажатию сохранить.

← →
Евгений Р. (2007-12-11 22:35) [8]

Проблемы нет.
Но...Обратите внимание на редактор Delphi. Иконка сохранения текста активизируется только при внесении изменения в текст.
А еще нужно и лог писать!!!

> Но...Обратите внимание на редактор Delphi. Иконка сохранения
> текста активизируется только при внесении изменения в текст.
>

ну я думаю правильнее тогда до редактирования запоминать исходное значение в доп переменной и на OnChange сравнивать то что написано с оригиналом, если есть различие то включать кнопку сохранить.

← →
Евгений Р. (2007-12-11 22:46) [10]

Можно и так, тем более, что старое значение в пока не измененном DataSet, но кажется получилось проще:
procedure TfViProgGrupTblFrame_Main.edDataPCloseUp(Sender: TObject); begin SaveChangesDates; end; procedure TfViProgGrupTblFrame_Main.edDataPChange(Sender: TObject); begin if not edDataP.DroppedDown then SaveChangesDates; end;

Раскрытое окно в TDateTimePicker Найти похожие ветки