關閉表格後，回到主窗體和傳輸參數

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;