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; |
|
28.01.2008, 04:03 | #2 |
Участник
|
Удалите значение свойства кнопки PushAction и вставьте в код команду
CurrForm.CLOSE |
|
28.01.2008, 06:39 | #3 |
Участник
|
Помогло. Спасибо за совет! |
|