判断按钮单击事件

[software0987654321]

我创建一个窗体FORM1，在上面放入一个BUTTON1控件，我再创建一个窗体FORM2，在其上也放上一个BUTTON2控件，再创建一个窗体FORM3，BUTTON2是用于判断是否单击了FORM1窗体上的BUTTON1控件，如果我单击了FORM1上的BUTTON1，BUTTON2的控件单击事件实现的功能是显示FORM3窗体，如果我没有单击FORM1上的BUTTON1，BUTTON2的控件单击事件实现的功能是退出此系统。请各位高手帮助好吗？

[liujidong]

做一个全局变量在form1和form2之间传递一下
如： form1中有一个tt: boolean

button1的click里面置为true

button2中判断一下

[liujidong]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
tt: Boolean;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
tt:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
tt:=True;
end;

end.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation
uses unit1;
{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
if tt then
begin
//显示FORM3窗体
end
else
begin
//退出此系统
end
end;

end.

[shanxia]

同上！自己在研究研究就行了！很简单的！