当前位置：文江博客话题详情

Delphi：表单可以自行释放吗？

发布于 2024-07-16 02:02:33 字数 95 浏览 5 评论 0原文

我有一个表格，用来显示一些信息几秒钟。表单可以自行释放吗？我可以在构造函数中启动一个计时器，然后在计时器事件中调用 self.free 吗？或者这可能会带来麻烦吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

琉璃繁缕 2024-07-23 02:02:33

此外，通过表单您可以调用Release。

它向表单发送一条 CM_RELEASE 消息。作为反应，它称之为“免费”。
发布的优点是不会为表单留下任何可能导致崩溃的消息。

回复收藏 0 原文

玩套路吗 2024-07-23 02:02:33

您可以使表单在被用户或代码关闭时释放自身：

procedure TForm27.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TForm27.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm27.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  Close;
end;

确保在构造函数中提供所有者，以防应用程序关闭并且表单当时没有被销毁。所有者将在释放自身之前释放该表单。

You can make the form to free itself when it gets closed by the user or from code:

procedure TForm27.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TForm27.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm27.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  Close;
end;

Make sure you supply an owner in the constructor incase the application shutdowns and the form is not destroyed at the time. The owner will free the form before freeing itself.

回复收藏 0 原文