Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.04.2012, 23:54   #1
AlexeyKrupnik
 
Регистрация: 27.04.2012
Сообщений: 4
По умолчанию Изменение процедур, исполняемых при нажатии кнопки.

Задача примерна такая: есть ~5 кнопок. На них привязаны процедуры 1-5 соответственно. При нажатии, допустим, на 1 кнопку, 4-5 становятся неактивными, на 1-3 меняются надписи, и меняются процедуры, привязанные к ним. Теперь на 1 привязана ~17 процедура, на 2 кнопку - 6 и т.д. И вот так процедуры будут присваиваться на кнопки, будут меняться надписи активность/неактивность и т.д. Можно ли это как-то реализовать именно таким образом? (Не создавая сотни кнопок и форм, т.к. количество процедур ~150)
AlexeyKrupnik вне форума Ответить с цитированием
Старый 28.04.2012, 00:15   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Да, если я вас правильно понял:
Код:
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  ...
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('1');
button1.OnClick:=Button2Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('2');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.OnClick:=Button1Click;
end;
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 28.04.2012, 00:27   #3
AlexeyKrupnik
 
Регистрация: 27.04.2012
Сообщений: 4
По умолчанию

Вроде бы, всё должно работать!
Спасибо, буду тестить.
AlexeyKrupnik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменение цвета кнопки при ее нажатии RedRec Microsoft Office Excel 2 04.08.2011 09:11
Прога вылетает при нажатии кнопки.. Дмитрий142 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 15.03.2011 08:36
Скрытие кнопки при нажатии на нее MyLastHit Общие вопросы Delphi 10 03.08.2010 22:23
Запуск формы при нажатии кнопки SkrudjMakdak Microsoft Office Excel 4 30.07.2010 22:29
Ошибка при нажатии кнопки Skynet91 БД в Delphi 1 08.02.2010 19:45