用控件在什么地方加事件代码，请详细举个示例！

[DRAGONMISS]

请详细举个示例！最好讲一下窗口的互相调用，快！

[qiqi97]

FORM1中放一按扭，按扭的ONCLICK中打开FORM2

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Form2:=TForm2.create (self);
Form2.show;
end;

[superljj]

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.visable:=false;
Form2.showModal;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.visable:=True;
close;
end;