[Помогите!] Програмно присвоить действие к Button2.Click

[Babls77]

Есть 3 кнопки и 1 redt .
Как присвоить програмно
(когда программа уже скомпилирована и работает)
Действие (Events) кнопке номер2 (Button2) при
нажатии на кнопку 1 (Button1) или на кнопку 3 (Button3).

Пример!

К примеру при нажатии на Button1 , присваевается действие 
(Events(OnClick)) Button2 к примеру такое:
 if  redt1.Lines:= 'Нажмите на кнопку 1 потом на кнопку 2' then
begin
 MessageDlg('Работает!!',  mtInformation, [mbOk], 0);
end
else
   MessageDlg('Redt1 пуст, или не правильная фраза !!'
   ,  mtError, [mbOk], 0);

Если знаете как это воплотить в жизнь отпишите в теме плз.

[R.A.Z.O.R.]

Создаешь такую процедуру:

procedure Имя_твоей_формы.ButClick(Sender: TObject);
begin
ShowMessage('Новое действие!');
end;

А присваиваешь так:

Button1.OnClick := ButClick;

[Tip.the.besT]

Можно просто вызвать процедуру да и всё. Заготовил несколько процедур и вызывай в зависимости от событий.

[Babls77]

Цитата: Сообщение от R.A.Z.O.R. Создаешь такую процедуру: procedure Имя_твоей_формы.ButClick(Sender: TObject); begin ShowMessage('Новое действие!'); end; А присваиваешь так: Button1.OnClick := ButClick;

Спс.

Добавлено через 2 минуты

Цитата: Сообщение от Tip.the.besT Можно просто вызвать процедуру да и всё. Заготовил несколько процедур и вызывай в зависимости от событий.

У меня просто очень большое кол-во кнопок и каждой надо почти одни и те же действия присваивать !
Если это писать всё в самой программе в исходнике то это писанины тьма ...

[Tip.the.besT]

Цитата: Сообщение от Babls77 Спс. Добавлено через 2 минуты У меня просто очень большое кол-во кнопок и каждой надо почти одни и те же действия присваивать ! Если это писать всё в самой программе в исходнике то это писанины тьма ...

Дак я за то и говорю, создали процедуру:

procedure pars;
begin
showmessage('Ok');
end;

И потом вызываете:

procedure TForm1.Button1Click(Sender: TObject);
begin
pars;
end;

//Другая кнопка
procedure TForm1.Button2Click(Sender: TObject);
begin
pars;
end;
//И т.д.

В этом случае вы можете задавать ещё и параметры для действий/расчётов.

Это будет уже выглядеть так:

procedure pars(s:string);
begin
showmessage(s);
end;

//теперь вызываем

procedure TForm1.Button1Click(Sender: TObject);
begin
pars('Сосисочная');
end;

В любом случае дело ваше

[VeTaL_UA]

А всё можно сделать вообще без лишнего кода:

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ссылки могут видеть только зарегистрированные пользователи. ]

Ну, думаю, ты понял

[Babls77]

Цитата: Сообщение от VeTaL_UA А всё можно сделать вообще без лишнего кода: [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ] Ну, думаю, ты понял

Это очень полезная инфа , но я не совсем то имел ввиду.

У меня в программе можно добавлять не ограниченное количество кнопок с разными , но и в тоже время похожими функциями а эту прогу я просто сделал для примера!

[Рэйзор]

У всех кнопок событие OnClick содержит ссылку на процедуру типа TNotifyEvent

 TNotifyEvent = procedure(Sender: TObject) of object;

Цитата: Сообщение от Babls77 У меня в программе можно добавлять не ограниченное количество кнопок с разными , но и в тоже время похожими функциями а эту прогу я просто сделал для примера!

Пишешь нужное кол-во процедур, соответствующих описанию TNotifyEvent, и кидаешь им ссылки на процедуры, например:

...
public
   procedure MyProc1(Sender:TObject);
   procedure MyProc2(Sender:TObject);
...
   ButtonsArray[1].OnClick := MyProc1;
   ButtonsArray[2].OnClick := MyProc2;

Ссылки на процедуры можно в массив загнать, если вдруг нужно.