How to call an inherited form precedent through the standard form?

Question

In my application made in Delphi 7, is created some Runtime objects in the standard form, as buttons manipulate record, procedures and common functions. There is one standard form of queries, another for editing records and another for reporting. The standard record editing form has the "Save" format, it has the following:

//Evento Salvar de FrmPadraoEdit
procedure TFrmPadraoEdit.Salvar(Sender: TObject);
begin
  ToolBar.Setfocus;
  //Demais instruções

  //deve continuar para a procedure Salvar do form herdado
end;

As the "btnSalvar" button is also in the standard form, the "Save" event is already assigned to it.

It turns out that for each inherited form, the "Save" event has different instructions. In the standard form, after calling the "Save" event itself, can you continue the instructions for the "Save" event from the inherited form? Ex:

//Evento Salvar de FrmDisciplinasEdit
procedure TFrmDisciplinasEdit.Salvar(Sender: TObject);
begin
  //Aqui deveria continuar a execução

  DM.cdsDisciplinasATIVO.Value := 1;
  DM.cdsDisciplinasCREATED_BY.Value := V_LOGIN;
  //Demais instruções...
  DM.cdsDisciplinas.Post;
  Close;
end;

Answer 1

I don’t know how you’re doing setting these events, but an easy solution would be to take the code out of the buttons and put it in your way. In the standard form

procedure DoSave; virtual;

with the code you need to call in the pattern and call this on the button click

In the inherited Forms declared this method

procedure DoSave; override;

and within it the code he wanted for each inherited form. To call the pattern code he used inherited. Something like

procedure TFormHerdado.DoSave();
begin
   //Chamar save do form padrao
   inherited;
   //Codigo do form herdado
end