Table editor: Make it impossible to (accidentally) click the save button twice. Closes #527

This commit is contained in:
Ansgar Becker
2019-02-10 13:02:33 +01:00
parent c9f00734df
commit 768bc001cb

View File

@@ -372,8 +372,13 @@ end;
procedure TfrmTableEditor.btnSaveClick(Sender: TObject);
begin
// Save changes, and make it impossible to (accidentally) click the save button twice
btnSave.Enabled := False;
btnSave.Repaint;
if ApplyModifications = mrOK then
Init(DBObject);
Init(DBObject)
else // Re-enable save button when something went wrong
btnSave.Enabled := True;
end;