| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Одинаковая обработка разных событий. Как? [D7, XP]
Inearthed © (2007-07-26 09:17:00)Допустим, у меня есть обработка события в несколько десятков строк.
Допустим, у меня есть две кнопки: Button1 и Button2.
procedure TForm1.Button1Click(Sender: TObject);
begin
//здесь идет довольно длинный обработчик в десятки строк...
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if {что-то там} then
//сюда мне нужно добавить обработчик нажатия кнопки Button1
//чтобы не копировать все несколько десятков строк....
end;
Надеюсь, вопрос понятен, заранее спасибо.
Inearthed (2007-07-26 09:34:00) [1]Кстати, MBo, твой ответ тоже работает, пасиба.
Inearthed (2007-07-26 09:30:00) [2]Сергей, респект!
Сергей М. (2007-07-26 09:21:00) [3]
> //сюда мне нужно добавить обработчик нажатия кнопки Button1
Button1.Click;
MBo (2007-07-26 09:21:00) [4]Прямо так и вызвать Button1Click(Nil); nil - если Sender не анализируется
Но лучше сделать отдельный метод, и его вызывать из обоих обработчиков
| |
