Question

我想请教下，delphi7怎么按一个form1中的button然后就跳出form2的代码（form1，form2都已经建了）

Answer 1

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
end;

Answer 2

双击这个BUTTON会自动添加一个事件，按以下修改
procedure TForm1.Button_Click(Sender: TObject); ////事件
var f: TForm2;
begin
f:=TForm2.Create(self);
f.ShowModal();
end;