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 阅读文档以获取更多信息。