Delphi：如何从自定义Congrats方法调用公共Resetform类方法？

完全可行，下面是具体实现步骤和注意事项：

• 确认Resetform的声明位置
  确保Resetform是在你的主窗体类的public区段声明的，示例代码如下：

  type
    TMainForm = class(TForm)
      // 这里是自动生成的组件和事件处理程序声明
    public
      procedure Resetform; // 公共重置方法
      procedure Congrats;  // 你的自定义恭喜方法
      // 其他公共成员声明
    end;
  

• 将Congrats方法归为窗体类成员
  如果你之前把Congrats写成了独立于窗体类的过程，就无法直接访问窗体的公共方法。把Congrats移到窗体类的private或public区段作为类成员方法，就能直接调用同属一个类的Resetform。

• 直接调用Resetform
  当Congrats是窗体类的成员方法时，直接在方法内部调用即可：

  procedure TMainForm.Congrats;
  begin
    // 你的恭喜逻辑，比如弹出提示框
    if MessageDlg('猜对了！要不要再玩一局？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      Resetform; // 直接调用同类的公共方法
  end;
  

• 特殊情况：若Congrats为独立过程
  要是必须把Congrats写成独立过程，可通过传入窗体实例或全局窗体变量调用Resetform：

  // 方式1：传入窗体实例（更规范，避免全局依赖）
  procedure Congrats(AForm: TMainForm);
  begin
    if MessageDlg('猜对了！要不要再玩一局？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      AForm.Resetform;
  end;
  // 在事件处理程序中调用时传入Self：Congrats(Self);
  
  // 方式2：使用全局窗体变量（项目默认生成，比如MainForm）
  procedure Congrats;
  begin
    if MessageDlg('猜对了！要不要再玩一局？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      MainForm.Resetform;
  end;
  

• 常见问题排查

  • 检查Resetform的拼写是否一致，Delphi虽不区分大小写，但统一拼写能避免不必要的问题；
  • 确认Resetform已经编写了实现代码，不是只有声明。

内容的提问来源于stack exchange，提问作者Nick van der Merwe