Отображение формы ввода в БД CUSTOMER из рабочей формы ORDER
В моем проекте имеется подобная функция, определяющая количество элементов:
- В обработчике события OnClick я создаю форму ввода данных и вывожу ее командой .ShowModal. Затем я проверяю результат .ModalResult - и, если он равен mrOk, я передаю запись, в противном случае делаю отмену.
procedure TFrmItemNav.BtnChangeLocClick(Sender: TObject); {var DlgItemLoc: TDlgItemLoc;} begin DlgItemLoc := TDlgItemLoc.Create(FrmItemNav); DlgItemLoc.ShowModal; if DlgItemLoc.ModalResult = mrOk then {делаем все, что необходимо для постинга данных} else {очищаем и делаем Cancel}; DlgItemLoc.Free; end; |
[001264]