Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.01;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
14-1547
Кен
2003-08-07 02:06
2003.09.01
Нашёл хтмл-вирус. Как защитить от него ИЕ6 ?


1-1410
Camedia
2003-08-15 22:22
2003.09.01
Выделение памяти массивам и про Graphic32


14-1650
Khloo!
2003-08-11 13:42
2003.09.01
База данных...


14-1574
Думкин
2003-07-21 07:36
2003.09.01
Новосибирск


1-1409
npAKTuk
2003-08-15 20:29
2003.09.01
Полный разворот директории?