大家好
我這里有一個急著在一個問題,我新建一個就用程序,建了三窗體
下為一個Login,main ,chidl,main設為fsMDIForm,chidl設為fsMDIChild,程序運行第一個窗體為login,通過login調用main,main調用chidl出錯,請高手指教,小弟不勝感激.
我這里有一個急著在一個問題,我新建一個就用程序,建了三窗體
下為一個Login,main ,chidl,main設為fsMDIForm,chidl設為fsMDIChild,程序運行第一個窗體為login,通過login調用main,main調用chidl出錯,請高手指教,小弟不勝感激.
至于登陆窗口,你设个变量来调用
我一会给你找点代码!
Error1:prouect CRM.EXE raised exception class EInvalid operation with message Canont create form .no MDI forms are currently action'.Process stopped.Use Step or Run to continue.
按確定之后
Error2:Cannot create form.NO MDI forms are currently active
Forms,
uFrmChild in 'uFrmChild.pas' {frmChild},
uLogin in 'uLogin.pas' {frmLogin},
uFrmMain in 'uFrmMain.pas' {frmMain};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmLogin, frmLogin);
frmLogin.ShowModal;
Application.Run;
end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;type
TfrmMain = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
frmChild1: TMenuItem;
procedure frmChild1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
frmMain: TfrmMain;implementationuses uFrmChild;
//uLogin;{$R *.dfm}procedure TfrmMain.frmChild1Click(Sender: TObject);
begin
if not assigned(frmChild) then
begin
application.CreateForm(TfrmChild,frmChild);
frmChild.Show;
end
else
frmChild.show;
end;end.
我给你的留言你没有收到吗?因为以前我不知道一个人不能连续回复三次,所以在这上面只能说这么多,但我给你留了言的。to blueneo(深深的蓝):
主窗体是 frmMain,上面也是先创建他的呀,但是如果在frmMain的Create事件中showModal的话,那么在登录窗体出现以前主窗体也已经出现了,我在上面的代码中showModal时,登录窗体出现的时候主窗体就不会出现
>> 如果在frmMain的Create事件中showModal的话,那么在登录窗体出现以前主窗体也已经出现了frmMain要在Create完了才会show,此时Showmodal,frmMain的Create还没完成,不会出现的。我的上一个项目就是这么做的。
sorry,I make a mistake!to gub(gub):
you are right.
但是在调用子窗体的时候怎么又会出现错误?