program facilitymanage;uses
Forms,
Main in 'Main.pas' {MainForm},
password in 'password.pas' {PasswordDlg},{$R *.RES}begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TPasswordDlg, PasswordDlg);
if PasswordDlg.ShowModal=mrOK then/////mrOK没定义
if PasswordDlg.bl then
Application.Run
else
Application.Terminate;
end.
-----------
出错:
[Error] facilitymanage.DPR(19): Undeclared identifier: 'mrOK'
Forms,
Main in 'Main.pas' {MainForm},
password in 'password.pas' {PasswordDlg},{$R *.RES}begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TPasswordDlg, PasswordDlg);
if PasswordDlg.ShowModal=mrOK then/////mrOK没定义
if PasswordDlg.bl then
Application.Run
else
Application.Terminate;
end.
-----------
出错:
[Error] facilitymanage.DPR(19): Undeclared identifier: 'mrOK'
Forms,
Controls, // 加上
Main in 'Main.pas' {MainForm},
password in 'password.pas' {PasswordDlg},
if PasswordDlg.ShowModal=idOK then
你在password.pas中是怎样定义窗体的?
----------------------------------
bl是BOOL类型
----
下面的语句有错吗?
if PasswordDlg.ShowModal=mrOK then
if PasswordDlg.bl then
Application.Run
else
Application.Terminate;