Сообщество Чайников

Вопрос

Версия языка:7

Имеется две стандартные процедуры нажатия клавиш 1 и 2, как мне из одной процедуры вызвать другую? Если можно, то пример пожалуйста.

Ответ

procedure TForm1.Button1Click(Sender:TObject);

begin

ShowMesage('Первая кнопень');

end;

procedure TForm1.Button2Click(Sender:TObject);

begin

Button1Click(self);

end;

Из конференции Expert_FAQ