这个程序为什么执行不出啊？（问题比较烂，刚起步）

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
  uses
unit2;
{$R *.dfm}
      procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='Button1的Default属性为True';
end;procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('Button2的Cancel属性为True');
//显示出一个信息框
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.ShowModal;  //让Form2以模态窗口的显示出来；
end;end.

Answer 1

在Object Inspector里看看你的button按钮的click事件有没有

Answer 2

可是预计是run后按esc可以弹出窗口对话框，但是没有反应啊，还有连带的第二个窗口也没出现

Answer 3

恩..难道在form2的制作出错?可是想不出会错在什么地方,不是在new->form里添加吗

Answer 4

给你两个建议：
第一：我怀疑你的Delphi版本不兼容，删除uses语句里的Variants看看行不行。
第二：可能是dfm文件坏了,要不资源文件有问题了。你先备份你的Form2.pas,Form2.dfm文件，然后用记事本打开Form2.dfm，和Form2.pas文件，把Form2.pas里的类成员变量和Form2.dfm里的Object ×××挨个对照一下，是不是完全不合呢？如果哪里有错误那么修改保存再打开看看，如果还是打不开那么用CTRL＋C键复制Form2.dfm里面的Object括起来的所有对象（注意，不要包括最外层的Form2对象）然后新建一个Form然后在Delphi IDE里按CTRL＋V键粘贴这些组件就出现在表单上了，然后Form的name属性改为Form2然后保存即可。（直接用这个文件替换你的坏掉的dfm吧，注意备份！）最后祝MM开心，愉快，节日快乐！：）