Fix logic in TFieldEditForm.OkClick which lead to closing the fieldeditor with ModalResult=mrCancel after SQL errors, although AddUpdateField() sets mrNone.

This commit is contained in:
Ansgar Becker
2007-10-12 18:51:07 +00:00
parent b16a5184a9
commit a027d51276

View File

@ -542,15 +542,9 @@ procedure TFieldEditForm.OKClick(Sender: TObject);
begin
// add/update what?
if fMode in [femFieldUpdate, femFieldAdd] then
begin
AddUpdateField(self);
end;
if fMode in [femIndexEditor] then
begin
UpdateKeys(self);
end
else
ModalResult := mrCancel;
AddUpdateField(self)
else if fMode in [femIndexEditor] then
UpdateKeys(self);
end;