如何将Delphi项目中的frmBooking表单重置至初始状态？

你之前的代码创建出空白表单，问题出在Application.CreateForm的参数上——你传入的是基类TForm，而非你设计的frmBooking对应的实际类TfrmBooking，所以生成的是不带任何自定义组件的空表单。下面提供两种可行方案：

方案一：正确销毁重建表单 #

用表单的专属类创建实例，同时确保旧实例完全释放：

// 先释放已存在的表单实例
if Assigned(frmBooking) then
begin
  frmBooking.Close;
  frmBooking.Free;
  frmBooking := nil;
end;
// 创建你设计的frmBooking实例
Application.CreateForm(TfrmBooking, frmBooking);
frmBooking.Show;

注意：如果frmBooking在项目设置的「自动创建表单」列表里，要先把它移到「可用表单」列表，避免自动创建导致的实例冲突。

方案二：手动重置控件状态（无需销毁表单） #

如果不想销毁重建，可遍历表单控件，逐个恢复初始值：

procedure ResetFormControls(Form: TForm);
var
  Comp: TComponent;
begin
  for Comp in Form.Components do
  begin
    if Comp is TEdit then
      TEdit(Comp).Text := ''; // 重置编辑框为空
    else if Comp is TCheckBox then
      TCheckBox(Comp).Checked := False; // 复选框取消勾选
    else if Comp is TComboBox then
      TComboBox(Comp).ItemIndex := -1; // 下拉框取消选中
    else if Comp is TMemo then
      TMemo(Comp).Clear; // 清空备忘录
    // 根据你的表单控件类型，继续添加对应的重置逻辑
  end;
end;

// 调用重置方法
ResetFormControls(frmBooking);

这种方法更高效，适合仅需重置控件内容而非完全重建表单的场景。

内容的提问来源于stack exchange，提问作者Onions Have Layers