Форум: "Основная";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
Вниз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;
И все.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.016 c