В моем проекте имеется подобная функция, определяющая количество элементов:
- В обработчике события 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; | |