Процедуры в delphi
Автор <<<J.a.Y>>> задал вопрос в разделе Другие языки и технологии
как повторно вызвать процедуру из процедуры в DELPHI ?) и получил лучший ответ
Ответ от Алексей Васильев[гуру]
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure MyProcedure; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.MyProcedure; begin ShowMessage(\'HI\'); end; procedure TForm1.btn1Click(Sender: TObject); begin MyProcedure; end; procedure TForm1.btn2Click(Sender: TObject); begin MyProcedure; end; end.
поставь у обоих кнопок одну и ту же функцию обработки клика, либо заверни логику, которая должна срабатывать по клику в отдельный метод и дёргай его из обоих обработчиков
В пропертис кнопки Button2 в событии onClick выбери просто btn1Click