你可以不要把登陆界面设置为主界面呀。在主界面的FORMSHOW时,写入登陆截面SHOW,如果没有正常登陆主界面就不能载入
解决方案 »
- 关于将excel导入access后身份证号自动变为科学计数法的问题如何解决
- 最近才发现Boolean原来是ByteBool
- 想问一个关于ADOQuery的问题...
- 简单的报表问题(在线等)
- [求助]如何释放excel对象(前几天问过,但又出现新的问题)?
- 有没有人用过李颖Dbbackup控件,有个怪问题啊?
- 使用Database Desktop的问题~~
- 请问怎么画一个点,lineto只能画一条线(急)
- DELPHI里怎么象VB里那样引用对象?你一定要帮我?
- c/s client中怎么访问调用Server中定义的method?
- 急,怎样在程序里改变系统分辨率。
- (100分求建议)一个邮件客户端,单线程多账户,带地址簿功能,附全部源码及控件和编程思路,恳请各位(尤其是已经下载的)给予点评!!
把登陆界面作成子窗口,手动创建。
program Project1;uses
Forms,Controls,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}
var
fm2: tform2;begin
Application.Initialize;
fm2:=tform2.Create(application);
if fm2.ShowModal=mrOk then
begin
Application.CreateForm(TForm1, Form1);
end;
Application.Run;
end.
其中fm2为登陆窗口,form1是主窗口
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
var form2;
form2=Tform2.create(self);
Tform2要加到非自動創建中去。
form2.free;