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

时间:2017-10-14 19:07:26

标签: delphi

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

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

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

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

1 个答案:

答案 0 :(得分:3)

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;