TAction

← →
Alibaba © (2003-08-18 01:51) [0]

Всем привет.

Народ, помогите разобраться с TAction.
Есть вопрос, для решения которого TAction, похоже, очень подходит.

//--------------------------------------------------------
Есть список задач (lbTasks: TListBox).

Каждая задача описывается рядом параметров:
1. тип задачи (cbRegular: TComboBox);
2. дата начала (edtBegDate: TEdit);
3. дата завершения (edtEndDate: TEdit);
4. режим1 (cbParam1: TCheckBox);
5. режим2 (cbParam2: TCheckBox);

Есть кнопка "Сохранить изменения" (btnSave: TButton).
//--------------------------------------------------------

Схема работы простая:
Двигаясь по списку задач (lbTasks: TListBox)
Поля параметров (cbRegular,edtBegDate, и т.д.) заполняются соответственно каждой задаче.
Если я хочу изменить параметры - я их изменяю, нажимаю кнопку "Сохранить изменения" (btnSave: TButton) происходит запись всех параметров. Изменились они или нет и все ОК!
//--------------------------------------------------------

Я хочу построить работу программы правильно.
1. Изначально btnSave.Enabled:=False;
2. Размещаю на форме actMain: TActionList;
3.1. Для 1 параметра (тип задачи (cbRegular: TComboBox))
создаю actChangeRegular: TAction.
На OnUpdate прописываю btnSave.Enabled:=
(cbRegular.ItemIndex <> Task.Regular);
На OnExecute прописываю:
Task.Regular:=cbRegular.ItemIndex;
btnSave.Enabled:=False;
3.2. Для 2 параметра подобным образом;
3.3. Для 3 параметра подобным образом;
3.4. Для 4 параметра подобным образом;
3.5. Для 5 параметра подобным образом;
//--------------------------------------------------------

Не работает....
OnUpdate - зацикливается, программа висит.
Подскажите что не так.

← →
Романов Р.В. © (2003-08-18 08:35) [1]

> На OnUpdate прописываю btnSave.Enabled:=
> (cbRegular.ItemIndex <> Task.Regular);

Напиши
actChangeRegular.Enabled:=(cbRegular.ItemIndex <> Task.Regular);

На OnExecute:
Task.Regular:=cbRegular.ItemIndex;
И все.

TAction Найти похожие ветки