と転送は、私がここにこのコードを持って

Question

パラメータ私は、Delphi

でフォームを開くために使用

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

私はTOpenEvFormフォームを開くと、日付ピッカー、テキストのビットを含みます「OK」ボタンがあります。私がする必要があるのは、Okボタンをクリックして最初のフォームでEventAddプロシージャを呼び出し、datepickerを変数として渡すときです。

EventAddプロシージャは2番目のフォームから呼び出すことができますが、それはきれいではありません。 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;