Скачать: CL | DM;

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

← →
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, твой ответ тоже работает, пасиба.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c