你把你的登陆窗口设成autocreate好了,如果密码通过再动态create你的主窗体嘛
解决方案 »
- EXCEL按模版导出,需要将上一行的格式复制到下一行,请教
- 请问DGBRIDeh怎么显示一SQL SERVER 中的DATETIME字段时,怎么样将下拉框改为时间对话框,而不是默认的日期对话框。
- 强烈抗议"申请delphi区大版"这样的乱帖子
- 请教大家DBGridEh从下拉列表问题
- 在cxgrid中如何不显示已经连接上的表中的已有的数据,用的是dbexpress?
- DELPHI里面有没有快闪窗口
- 如何不通过ODBC用ado连接paradox数据库的问题?
- VB程序员的Delphi菜鸟问题(超级菜)
- delphi输出的dll,如何转到VB程序里面!
- access的清空问题。
- delphi数据库编程只能用sql语句吗?
- 如何在delphi5中使用delphi6编写的源程序
SplashAbout:TAboutForm;
begin
Application.Initialize;
SplashAbout:=TAboutForm.Create(Application);
try
SplashAbout.MakeSplash;
if SplashAbout.CanRan then
Application.CreateForm(TMainForm, MainForm);
SplashAbout.Close;//无论如何都是在SplashAbout.MakeSplash后就会关的呀!
finally
SplashAbout.Free;
end;
Application.Run;
end.
var
SplashAbout:TAboutForm;
begin
Application.Initialize;
SplashAbout:=TAboutForm.Create(Application);
try
SplashAbout.MakeSplash;
if SplashAbout.CanRan then
begin
Application.CreateForm(TMainForm, MainForm);
SplashAbout.Close;
end;
finally
SplashAbout.Free;
end;
Application.Run;
end.
if SplashAbout.CanRan then
begin
Application.CreateForm(TMainForm, MainForm);
SplashAbout.Close;
end;
SplashAbout:=TAboutForm.Create(Application);
这样一来,就把SplashAbout作为了主窗口
你又用了SplashAbout.Close;
那么进程就结束了,结果就是你所说的“一闪而过”了我这么认为,不知道对不对
begin
Application.Initialize;
MainForm:=TMainForm.Create(Application);
try
Application.CreateForm(TAboutForm,SplashAboutForm);
SplashAbout.ShowModal;
if SplashAbout.SomeVar <> true then
MainForm.close
else
MainForm.Show;
finally
SplashAbout.Free;
end;
Application.Run;
end.高手指教
SplashAbout:TAboutForm;
begin
Application.Initialize;
SplashAbout:=TAboutForm.Create(Application);
try
if SplashAbout.ShowModal = mrOk then //
Application.CreateForm(TMainForm, MainForm);
finally
SplashAbout.Close;
SplashAbout.Free;
end;
Application.Run;
end.AboutForm单元文件中有如下过程:
procedure TAboutForm.AboutShow; // OnShow事件 //
begin
BorderStyle:=bsNone;
Panel1.BorderWidth :=3;
end;procedure TAboutForm.Button1Click(Sender: TObject);
begin
if (Edit1.Text ='administrator') and (Edit2.Text ='pass') then //
ModalResult := true;
end;