Pascal. Вложить onclick в другой onclick

Question

Программа вычисляет результат функции. На форме есть выпадающее меню с действием "Вычислить" и кнопка "Вычислить". У меня есть событие на простую кнопку. Можно ли чтобы при нажатии на элемент "Вычислить" из списка делалось тоже самое что и на кнопке без копирования всего кода onclick кнопки в onclick элемента меню?

procedure TForm1.Button1Click(Sender: TObject); begin ... end;
procedure TForm1.N2Click(Sender: TObject); begin ? end; — Илья, Jan 30 '19 at 19:08
Используйте кнопку "править" и добавьте это в вопрос, плиз. — Kromster, Jan 31 '19 at 04:14

score 4 · Answer 1 · answered Jan 30 '19 at 19:18

Можно написать процедуру, которая будет вызываться и при нажатии кнопки и элемента меню.

 procedure Button1Click(Sender: TObject); 
 begin
    CalculateProc;
 end;

 procedure N1Click(Sender: TObject); 
 begin
    CalculateProc;
 end;

А вообще для случая, когда разные элементы управления делают одно и то же, лучше сделать action и привязать его к ним.

Это шаг в верном направлении - отделение интерфейса от модели. — Kromster, Jan 31 '19 at 04:16

score 2 · Accepted Answer · edited Jan 31 '19 at 04:15

2

N2.OnClick := Button1Click; //

edited Jan 31 '19 at 04:15

Kromster

13,809

answered Jan 30 '19 at 19:08

Pascal. Вложить onclick в другой onclick

2 Answers2