关于登录窗口消失的问题 在制作登录窗口时,我希望是当密码和用户名都正确时,我点击登录,然后我的登录窗口消失,主菜单窗口出现。我用如下代码forma1(登录窗口)。hide;forma2(主窗口)。show;可是效果是登录窗口不会消失谁有更好的设计方式?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Form1.Close();问题如果解决请及时结帖 说实话,close,visible:=false我都用过了,没用 菜单 Project -> View Source,看到 dpr 文件的代码:program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin Application.Initialize; Application.CreateForm(TForm1, Form1);//主窗口 Application.CreateForm(TForm2, Form2);//登陆窗口 Application.Run;end.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);begin Form2.Showmodal();end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, 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{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);begin Close();end;end. 调用XML Data binding wizard文章的借口,为什么老是出错?高手帮帮忙。 送资料拉。朋友来吧 关于jpeg的savetostream问题 几个读写注册表的函数送给大家... 急问:请教高手,如何实现exacl和access的相互导入和导出? 怎么样使小数点在文本框中只出现一次??? b1:=TBitmap.Create;//这里已经建立成功的了//为什么已经建立了B1但竟然不能让我用 如何发布DELPHI程序 客户端读不了服务器,怎么办?分必给 DLL的调用 比晚帖 如何实现浮动窗口预览图片的效果?
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);//主窗口
Application.CreateForm(TForm2, Form2);//登陆窗口
Application.Run;
end.unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
Form2.Showmodal();
end;end.unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, 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{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
Close();
end;end.