你可以不要把登陆界面设置为主界面呀。在主界面的FORMSHOW时,写入登陆截面SHOW,如果没有正常登陆主界面就不能载入
解决方案 »
- 如何实现dbgrid动态绘色功能,各位大侠请拍砖扔玉
- 如何判断TDBGridEh点击的是标题行而非下面的数据行
- 三层的问题,一头雾水,请解惑,谢谢。
- 在使用WSAAsyncSelect模型进行UDP通信时遇到的问题?
- 如何根据edit里是否有输入信息,选择性的更新数据库记录?
- 问个课外的问题(第五届全国中小学生电脑程序制作)
- SOS!国外邮件,一堆乱码,如何显形?MM
- 怎樣對dbgrid中的單元格賦值?
- 如何在Dbgrid中,动态地加入字段地内容??
- 小问题!
- 急,怎样在程序里改变系统分辨率。
- (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;