Как вызвать в одном событие другое ?

[juan666777]

Как вызвать события нажатия одной кнопки нажав на другую кнопку ?
Я раньше вроде это знал но забыл

[Arigato]

Просто вызвать обработчик события кнопки, например: Button1Click (nil);

[Kotofff]

Лучше Button1Click(Self);
А то ругнется ...ИМХО

[Arigato]

А то ругнется ...ИМХО

А с какого перепуга ему ругаться? Button1Click - обычная процедура с параметром Sender: TObject. Можно передать всё, что угодно, лишь бы тип совпал.

[Волк]

Сообщение от Arigato

А с какого перепуга ему ругаться? Button1Click - обычная процедура с параметром Sender: TObject. Можно передать всё, что угодно, лишь бы тип совпал.

я пробовал ругается надо так как Kottof сказал

[Stilet]

я пробовал ругается надо так как Kottof сказал

Наверное у тебя в коде обработчика прописано что-то такое что зависит от передаваемого параметра.

[DeKot]

Переменная Sender (возвращает(указывает) ссылку на объект, (переменную) которая вызывает метод (процедура, функция) где указана Sender).
Поэтому : имеем процедуру-обработчик кнопки 1 :
....Button1Click (Sender: ....)
begin
некие действия
end;

Далее, в следуещем обработчике события : ...Button2Click (Sender ....)

указываем ссылку на первый обработчик с параметром Sender его же Button1Click (Sender) [здесь Sender указывает на Button1 ] и получим срабатывание по кнопке 1.Еще раз - Sender события по Button2 передает Sender-у по событию Button 1 выполнить часть программы.
Я специально не привожу никакой код для пояснения и (признаюсь специально) запутал все рассуждения. В программировании основное -
понять смысл задачи, код напишется потом.На любом языке

[Волк]

Сообщение от DeKot

Переменная Sender (возвращает(указывает) ссылку на объект, (переменную) которая вызывает метод (процедура, функция) где указана Sender).
Поэтому : имеем процедуру-обработчик кнопки 1 :
....Button1Click (Sender: ....)
begin
некие действия
end;

Далее, в следуещем обработчике события : ...Button2Click (Sender ....)

указываем ссылку на первый обработчик с параметром Sender его же Button1Click (Sender) [здесь Sender указывает на Button1 ] и получим срабатывание по кнопке 1.Еще раз - Sender события по Button2 передает Sender-у по событию Button 1 выполнить часть программы.
Я специально не привожу никакой код для пояснения и (признаюсь специально) запутал все рассуждения. В программировании основное -
понять смысл задачи, код напишется потом.На любом языке

проще написать Button1Click

[DomiNick]

... и (признаюсь специально) запутал все рассуждения

Вам это удалось... %(
Я уже совсем запутался...(

Вот лично у меня и так и так работает...

[Jeni]

Сообщение от DomiNick

Я уже совсем запутался...(
Вот лично у меня и так и так работает...

Да что же тут непонятного. Допустим есть Кнопка и Эдит, у них есть обработчики:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  // Некий код
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1Change(nil);
  // или так: Edit1Change(Sender);
end;

При щелчке на кнопке вызывается обработчик Эдита. Если передаваемый параметр неважен (обычно так и есть), то используется nil.