Resultado ModalResult de un Form

[Neftali [Germán.Estévez]]

Basta buscar en la ayuda de Delphi y encontrarás un ejemplo bastante claro:

Código Delphi [-]
procedure TMyDialogBox.OKButtonClick(Sender: TObject);

begin
  ModalResult := mrOK;    /// ACEPTARRRRRR
end;

procedure TMyDialogBox.CancelButtonClick(Sender: TObject);
begin
  ModalResult := mrCancel;      ////  CANCELARRRRRRR

end;

This code brings up the modal dialog from Form1 when a button is clicked.  It causes a Beep if the OK button is clicked.

procedure TForm1.Button1Click(Sender: TObject);

begin
  if MyDialogBox1.ShowModal = mrOK then           //// RECOGER EL RESULTADOOOOOOO
    Beep;

end;