关闭表格后，回到主窗体和传输参数

Question

我这里有这个代码，我在Delphi中使用，以开放的形式

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

当我打开TOpenEvForm形式，它包含了一些文本，一个datepicker和“确定”按钮。我需要做的是当点击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;