Одинаковая обработка разных событий. Как?

← →
Inearthed (2007-07-26 09:17) [0]

Допустим, у меня есть обработка события в несколько десятков строк.
Допустим, у меня есть две кнопки: Button1 и Button2.

procedure TForm1.Button1Click(Sender: TObject); begin //здесь идет довольно длинный обработчик в десятки строк... end;

procedure TForm1.Button2Click(Sender: TObject); begin if {что-то там} then //сюда мне нужно добавить обработчик нажатия кнопки Button1 //чтобы не копировать все несколько десятков строк.... end;

Надеюсь, вопрос понятен, заранее спасибо.

← →
Сергей М. © (2007-07-26 09:21) [1]

> //сюда мне нужно добавить обработчик нажатия кнопки Button1

Button1.Click;

← →
MBo © (2007-07-26 09:21) [2]

Прямо так и вызвать Button1Click(Nil); nil - если Sender не анализируется
Но лучше сделать отдельный метод, и его вызывать из обоих обработчиков

← →
Inearthed (2007-07-26 09:30) [3]

Сергей, респект!

← →
Inearthed (2007-07-26 09:34) [4]

Кстати, MBo, твой ответ тоже работает, пасиба.

Одинаковая обработка разных событий. Как? Найти похожие ветки