请教delphi高手

two1and1 2012-04-03 10:42:14
有如下一段程序,运行时,在第一个窗口按按钮能打开第二个窗口,在第二个窗口按第一个按钮能打开第三个窗口,但在第二个窗口按第二个按钮不能打开第四个窗口,不知何解,望有高手能指出。
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

//第一单元

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
form2 : TForm2;
begin
form2 := TForm2.Create(self);
form2.ShowModal;
form2.free;


end;

end.


//第二单元

unit Unit2;

interface

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

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

var
Form2: TForm2;

implementation
uses unit3, unit4;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
form3 : TForm3;
begin
form3 := TForm3.Create(self);
form3.ShowModal;
form3.free;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
form4 : TForm4;
begin
form4 := TForm4.Create(self);
form4.ShowModal;
form4.free;
end;

end.


//第三单元


unit Unit3;

interface

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

type
TForm3 = class(TForm)
Label1: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

end.


//第四单元

unit Unit4;

interface

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

type
TForm4 = class(TForm)
Label1: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

end.
...全文
104 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
bdmh 2012-04-08
  • 打赏
  • 举报
回复
从代码看没问题,除非第二个按钮事件没有挂上,你调试看看能不能触发事件
山东蓝鸟贵薪 2012-04-08
  • 打赏
  • 举报
回复
其实就是窗体之间的“切换”呀
kaikai_kk 2012-04-04
  • 打赏
  • 举报
回复
又一个问题!!!
没有发现错误
Oraclers 2012-04-04
  • 打赏
  • 举报
回复
没有发现你的问题,同样可以打开第四个窗口。不过按第一个按钮打开第三个窗口后,由于你是用ShowModal,所以你必须先关闭第三个窗口后,才能再去第二个窗口按第二个按钮打开第四个窗口。如果要同时打开第三、第四个窗口,可以用Form3.Show;显示第三个窗口,这时可再去第二个窗口按第二个按钮打开第四个窗口。

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧