Как можно прописать что б корректно отработало при отмене редактирования и вернуло при следующем открытии формы режим редактирования?
Код: Выделить всё
var
T: TdxForm;
ggg: string;
kkk: integer;
procedure OpenFormCl (Sender:TObject);
begin
ggg:= EvalExpr('get("Запрос256","Имяформы")', self);
kkk:= EvalExpr('get("Запрос256","id_rec")', self);
T:=TdxForm.Create(ggg);
T.OpenRecord(kkk);
T.Edit;
if T.EditWindow.ShowModal = mrOk then
T.Post;
T.Close;
if T<>nil then T.Free;
end;
procedure Form_Create;
begin
dxQueryGrid1.OnDblClick:= @OpenFormCl;
end;