判断按钮单击事件 做一个全局变量在form1和form2之间传递一下如: form1中有一个tt: booleanbutton1的click里面置为truebutton2中判断一下 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses 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;interfaceuses 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;implementationuses unit1;{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);begin if tt then begin //显示FORM3窗体 end else begin //退出此系统 endend;end. 类的默认封装等级是什么? 高手请进,屏幕截取传输的过程中 服务端出现异常错误 菜鸟救助Delphi调用人家的md5.pas方法 如何使一个对话窗口只有关闭按钮,没有最大化和最小化? DBGridEH能实现这样的功能吗> Delphi 7 的bug??? 高难度!高难度!!关于SOCKET编程 idhttp socket error #10054 try except捕捉不到 如何调用Datamodule里面的table,source。 请问声卡的所谓全双工指的是啥?具有啥特性的声卡可以用MCI命令同时播放两个声波文件? 怎么重载TEdit类? 菜鸟请教!如何完成这样的功能?
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;interfaceuses
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.