25.01.2008, 18:11 | #1 |
Участник
|
Здравствуйте!
Столкнулся со следующей ситуацией, подскажите как выйти из нее: Открывается форма Form1. LookUpMode = TRUE. При выполнении ниже приведенного кода, при выполнении DIALOG.CONFIRM(txtQuestion,FALSE) система выдает сообщение: "Form1 не может быть закрыто, так как система работает." После закрытия этого окна появляется мое сообщение txtQuestion. Как сделать, чтобы появлялось только мое сообщение txtQuestion? recHR_Employee.RESET; recHR_Employee.SETRANGE(recHR_Employee.HR_Last_Name_1,strHR_Last_Name); recHR_Employee.SETRANGE(recHR_Employee.HR_DOB,datHR_DOB); IF recHR_Employee.FINDFIRST THEN BEGIN IF DIALOG.CONFIRM(txtQuestion,FALSE) THEN BEGIN prcINSERT_New_Employee; blnSave:=TRUE; boolExit:=TRUE; END; END ELSE BEGIN prcINSERT_New_Employee; blnSave:=TRUE; boolExit:=TRUE; END; END; |
|