大虾救命啊~~~~~~~~~~~（cainiao000从无没结贴的记录）

Question

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'

Answer 1

加上 uses Controlsprogram facilitymanage;uses
  Forms,
  Controls,  // 加上
  Main in 'Main.pas' {MainForm},
  password in 'password.pas' {PasswordDlg},

Answer 2

在Uses单元加个Dialogs试试看？

Answer 3

改为
if PasswordDlg.ShowModal=idOK then

Answer 4

不是这个原因吧？
你在password.pas中是怎样定义窗体的？

Answer 5

刚才加了Controls好了，点确定没问题，当我点取消按钮又出现新错runtime error 216 at 00403352
----------------------------------
bl是BOOL类型
----
下面的语句有错吗？
  if PasswordDlg.ShowModal=mrOK then
  if PasswordDlg.bl then
  Application.Run
  else
  Application.Terminate;