问题是这样的,有个UPUR_INVOICE_PUR_REPSTAT.PAS ,程序按F7时是调用的,按F8就不调用了,我做了断点也没在UPUR_INVOICE_PUR_REPSTAT.PAS那里停,请问为什么?PUR.DPR的代码begin
if ApplicationExists(CS_Title, 'MainForm', False) then
begin
if ShowMsg(Format(GetLanguage_Message(CS_DefVal_LanguageID, CS_MSG_ConformOpenNewInstance), [CS_Title]),
CS_Title, mtInformation, [mbOK, mbCANCEL]) <> mrOK then
Exit;
end; Application.Initialize;
SetForegroundWindow(Application.Handle);
ModuleNum := CI_ModuleID_PUR;
BuildSysInfo;
BuildIniDirs;
Application.Title := '采购管理系统';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TCOM_Resource, COM_Resource);
Application.CreateForm(TPUB_DBCtrlsRes, PUB_DBCtrlsRes);
Application.CreateForm(TPUB_PopupForm, PUB_PopupForm);
Application.Run;end.
if ApplicationExists(CS_Title, 'MainForm', False) then
begin
if ShowMsg(Format(GetLanguage_Message(CS_DefVal_LanguageID, CS_MSG_ConformOpenNewInstance), [CS_Title]),
CS_Title, mtInformation, [mbOK, mbCANCEL]) <> mrOK then
Exit;
end; Application.Initialize;
SetForegroundWindow(Application.Handle);
ModuleNum := CI_ModuleID_PUR;
BuildSysInfo;
BuildIniDirs;
Application.Title := '采购管理系统';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TCOM_Resource, COM_Resource);
Application.CreateForm(TPUB_DBCtrlsRes, PUB_DBCtrlsRes);
Application.CreateForm(TPUB_PopupForm, PUB_PopupForm);
Application.Run;end.
如果在UPUR_INVOICE_PUR_REPSTAT.PAS设置断点,按F8,没作用,程序不会在UPUR_INVOICE_PUR_REPSTAT.PAS那里停
http://img96.ph.126.net/u7-3AHJBLe7LC2f8rmMTew==/2047167505618637624.jpg