我在这里使用此代码用于在Delphi中打开表单
procedure TEventForm.OpenEv;
var
Form: TOpenEvForm;
begin
Form.CreateForm;
Form.ShowModal;
Form.Release
end
end;
当我打开TOpenEvForm
表单时,它包含一些文本,一个日期选择器和一个“确定”按钮。我需要做的是点击Ok按钮以第一种形式调用EventAdd
过程并将datepicker作为变量传递。
我可以从第二种形式调用EventAdd
程序,但它不干净。
或者有没有办法关闭表单TOpenEvForm
但运行EventAdd
程序?
答案 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;