Скачать: CL | DM;

Процедура(функция)   Найти похожие ветки 

← →
Ал   (2002-06-27 18:02) [0]

Уважаемые мастера!
Ответьте, пожалуйста, пользователю на тривиальный для
Вас вопрос. На форме группа кнопок (TButton).
В различных случаях всю группу нужно
делать недоступной. Так вот чтобы при каждом
обработчике не писать:
begin
……………………….. // одна из процедур обработки события
Button1.Enabled:=false; // один и тот же текст
Button2.Enabled:=false;
………………………..
Button20.Enabled:=false;
end
Как написать процедуру(функцию)?
Пожалуйста, ПОМОГИТЕ.
С уважением, Александр.

---

← →
rhf ©   (2002-06-27 18:12) [1]

просто сделай одну процедуру для обработки события от всех кнопок........

или вынеси в отдельную процедуру и вызывай когда необходимо...

---

← →
Игорь Шевченко ©   (2002-06-27 18:14) [2]

var I:Integer;
begin
for I:=1 to ButtonsCount do
(FindComponent(Format("Button%d", [I]) AS TButton).Enabled := false;

---

← →
jedi ©   (2002-06-27 18:19) [3]

Napisal OnClick dlea odnoi knopki. Potom v Object Inspector dlea ostolnih v events nujno vibirat" proseduru cotoraya sformirovals" dlea pervoi cnopki.

---

← →
Volj ©   (2002-06-27 18:28) [4]

А еще проще поместить группу кнопок на одну панель (или GroupBox) и дизаблить уже его

---

← →
Victor_Kozel   (2002-06-27 19:00) [5]

Для VCL это должно выглядеть где-то так
Всем кнопкам назначь свой TAction.
У него есть событие OnUpdate.
Назначь для всех соответствующих Action
один обработчик с примерно таким кодом.

procedure TForm1.acTestActionUpdate(Sender: TObject);
begin
TAction(Sender).Enabled := условие;
end;
Это тебе позволит дизейблить не только кнопки на панели, но и
пункты меню, как главного так и PopUp в одной точке кода

---

← →
Ал   (2002-06-27 23:04) [6]

А как описать общую процедуру
для всех кнопок, доступную
для разных компонентов формы?
Спасибо!

---

← →
Stelius ©   (2002-06-28 00:56) [7]

Для всех компонентов на форме:

for i := 0 to Form1.ControlCount - 1 do
Form1.Controls[i].Enabled := False;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c