delphi9 主窗体mainform show的时候建立了login子窗体
login子窗体登录之后mainform.Menu := mainform.MainMenu1;如果mainform.Menu := mainform.MainMenu1;或者loginform := nil;程序退出的时候就会报错,请大家看看是什么原因啊
login子窗体登录之后mainform.Menu := mainform.MainMenu1;如果mainform.Menu := mainform.MainMenu1;或者loginform := nil;程序退出的时候就会报错,请大家看看是什么原因啊
解决方案 »
- 请教:quickreport做报表,打印浏览时第一张表有抬头。第二张就没有title了。应该如何设置。另外,横竖表格线应该怎样画。
- 过年后想买一台THINKPAD X60,现在的台式机这么好用,会不会太笨了?
- 关于在dll中使用线程的问题?
- Required package 'vcl' not found!!! 急
- 如何屏蔽WebBrowser的下载对话框
- 菜鸟问题[4]:怎么在sql语句中建立中间变量,及对它赋值?
- 如何去掉连接SQL SERVER时候的英文用户登陆对话框?
- 问一个delphi编码问题 gbk转ansi
- 我想取得DBGrid被选中的一行的某一列的值,该怎么处理?
- delphi 串口通信
- DELPHI 编程中使用SaveDialog组件出现错误
- 有关图片保存问题?
二,你最好不要动态得创建临时LOGIN窗体,先创建好LOGIN窗体,也就是说在工程文件里有LOGIN窗体,然后mainform里USES中应用,然后在MAINFORM窗体SHOW时,先把LOGIN窗体SHOWMODEL出来
二楼三楼的朋友不好意思了,光是创建关闭窗体代码贴上来没有什么意思,完整代码又太大了没法网上贴,不好意思
退出程序时,自然会注销的,前提是你创建的时候要:create(Application).
loginform:=Tloginform.Create(Application);
loginform.show;
loginform.left := trunc((mainform.Width-330)/2);
loginform.Top := trunc((mainform.Height-330)/2);
创建的窗口。
如果没有loginform:nil来结束窗口的话再次打开登录框就会出现错误的
建一个login窗体,然后引用,
用得时候想怎么用就怎么用,想显示就显示,想关闭就半闭,
一个LOGIN不要搞那么复杂嘛。具体参见我四楼的回复。
算了给你源码:工程窗体program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {mainfrom},
Unit2 in 'Unit2.pas' {loginform},
Unit3 in 'Unit3.pas' {DataModule3: TDataModule};{$R *.res}begin
Application.Initialize;
// Application.CreateForm(Tmainfrom, mainfrom);
// Application.CreateForm(Tloginform, loginform);
Application.CreateForm(TDataModule3, DataModule3);
loginform := Tloginform.Create(Application);
loginform.ShowModal;
if loginform.ModalResult = 1 then
begin
mainfrom := Tmainfrom.Create(Application);
mainfrom.ShowModal;
end;
Application.Run;
end.