Процедура(функция)

← →
Ал (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;

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