关闭表单后，返回主表单并传输参数

Question

我在这里使用此代码用于在Delphi中打开表单

procedure TEventForm.OpenEv;
var
  Form: TOpenEvForm;
begin
      Form.CreateForm;
      Form.ShowModal;
      Form.Release
  end
end;

当我打开TOpenEvForm表单时，它包含一些文本，一个日期选择器和一个“确定”按钮。我需要做的是点击Ok按钮以第一种形式调用EventAdd过程并将datepicker作为变量传递。

我可以从第二种形式调用EventAdd程序，但它不干净。 或者有没有办法关闭表单TOpenEvForm但运行EventAdd程序？

Answer 1

procedure TEventForm.OpenEv;
var
  Form: TOpenEvForm;
begin
  Form := TOpenEvForm.Create(nil);
  try
    if Form.ShowModal = mrOk then
      EventAdd(Form.DateTimePicker1.DateTime);
  finally
    Form.Free;
  end;
end;