一个简单的问题，关于窗体显示

string256 2001-07-13 07:05:50

如果在mainfrm显示后
自动以模式方式显示loginfrm
（二个窗体都要显示出来）
在create和onshow中
都只显示出loginfrm
而mainfrm没有显示

...全文

79 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

string256 2001-07-24

打赏
举报

Form->OnActive event

string256 2001-07-24

打赏
举报

Form->OnActive event

string256 2001-07-13

打赏
举报

OK，行了

8追8梦8 2001-07-13

打赏
举报

补充一下，其中passworddlg就是你所说的要与主窗体一同显示的密码登陆窗体：）

8追8梦8 2001-07-13

打赏
举报

我这有个delphi的例子，也许对你有所启发

begin
Application.Initialize;
//-------------------------------------------------------

//--------------------------------------------------------
application.Title:='理财';
application.ShowHint :=true;
form_log:=Tform_log.Create(application);
form_log.Show ;
form_log.Update;

try
Application.CreateForm(TForm_main, Form_main);
Application.CreateForm(TForm_recordedit_report, Form_recordedit_report);
Application.CreateForm(TForm_input_report, Form_input_report);
Application.CreateForm(TDataModule1, DataModule1);
passworddlg:=Tpassworddlg.Create(application);// .CreateForm(TPasswordDlg, PasswordDlg);
passworddlg.Show ;
except
Messagedlg('数据库加载失败！',mterror,[MBOK],0);
form_log.Hide ;
form_log.free ;
form_main.Free ;
application.Terminate ;
end;
form_log.Hide ;
form_log.free ;
Application.Run;
end.

xrbeck 2001-07-13

打赏
举报

Form->OnActive event

Wingsun 2001-07-13

打赏
举报

这样啊，在Project菜单下选择View Source
然后在
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFrmMain), &FrmMain);
FrmLogin=new TFrmLogin(Application);
if(FrmLogin->ShowModal()==mrOk)
{
Application->Run();
}
delete FrmLogin;
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}