Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=455477&view=findpost&p=3916013 Mon, 13 Jan 2025 13:15:40 +0000 Как выйти из режима редактирования? https://forum.sources.ru/index.php?showtopic=455477&view=findpost&p=3916013
    procedure TFormJrn.Button2Click(Sender: TObject);
    begin
        FormAnketa.Tag:=1;
        ADOTableAnketa.Append;
        ADOTableAnketaKod_Pc.Value:=ADOTablePacientKod_Pc.Value;
        ADOTableAnketa.Active;
        ADOTableAnketa.Post;
        FormAnketa.ShowModal;
        if FormAnketa.Tag=1 then
        begin
            ADOTableAnketaData.Value:=FormAnketa.DateTimePicker1.Date;
    //        Выход из редактрования ADOTable
        end;
        if FormAnketa.Tag=0 then ADOTableAnketa.Cancel;
    end;


На форме ввожу данные имя фото, дату, ну и ComboBox-ы отмечаю.

    procedure TFormAnketa.Button1Click(Sender: TObject);
    begin
        if OpenPicDialog.Execute then
        begin
            ADOTableFoto.Append;
            ADOTableFotoKod_An.Value:=FormJrn.ADOTableAnketaKod_An.Value;
            ADOTableFotoFUllName.Value:=OpenPicDialog.FileName;
     
            ADOTableFoto.Active;
            ADOTableFoto.Post;
        end;
    end;


Таблица Anketa остается в режиме редактирования. Как выйти из режима редактирования?]]> Volhv Delphi: Базы данных