Delphi - 在 VCL 样式中禁用 [x] 关闭按钮

Question

我想在 DX Berlin 中禁用具有 VCL 样式的 [X] 关闭按钮。

为什么此代码不适用于 VCL 样式？

EnableMenuItem(GetSystemMenu(Form3.Handle, LongBool(False)),SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);

Answer 1

如果您将 FormClose 事件中的操作设置为 caNone，则当您尝试关闭表单(单击红十字)时，不会发生任何事情。这样您就可以禁用该按钮。

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 //You cannot type only caNone, otherwise you'll get a compiler error
 Action := TCloseAction.caNone;
end;

您可以在System.UITypes中找到caNone；阅读documentation了解更多信息。