Программное присвоение события.

← →
Scorpx © (2003-06-16 21:10) [0]

Подскажите, как программно присвоить событие форме. К примеру, при нажатии на кнопку, происходило нажатие на форму.

← →
Anatoly Podgoretsky © (2003-06-16 21:14) [1]

С помощью оператора :=, слева событие, справа обработчик.

← →
Palladin © (2003-06-16 21:17) [2]

Form1.OnClick:=Button1.OnClick

← →
Scorpx © (2003-06-16 21:29) [3]

Form1.OnClick:=Button1.OnClick не получается. Написал в событиях Onclick для формы close. В событиях Onclick для кнопки Form1.OnClick:=Button1.OnClick - форма не закрывается. Значит не происходит присвоения.

← →
Palladin © (2003-06-16 21:34) [4]

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.OnClick:=Button1.OnClick;
end;

сначала жмешь на Button2 потом на Button1
и закроется твоя форма

← →
Forester © (2003-06-16 21:35) [5]

Form1.OnClick:=Button1.OnClick надо писать в обработчике OnCreate формы, а не OnClick батона.

нее... кого там...

> при нажатии на кнопку, происходило нажатие на форму.

тогда совсем по другому
procedure TForm1.Button1Click(Sender: TObject);
begin
Form.OnClick(Sender);
end;

Спасибо, получилось

Программное присвоение события. Найти похожие ветки