Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: 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 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
7-47832
zooooo
2002-04-22 02:20
2002.07.15
Отключение/включение мыши/клавы


1-47496
Cherepovets
2002-07-04 11:50
2002.07.15
Если компонент или подскажи как?


1-47351
Ivan2
2002-07-01 19:07
2002.07.15
Как получить доступ к private-полю из блока asm?


14-47756
любитель
2002-06-13 09:49
2002.07.15
Нужна песня группы Лето Февраль


3-47139
jaric
2002-06-18 16:14
2002.07.15
Как испоьз в одном запросе 2 dbf-ки из разных каталогов