替换已弃用的发布功能

我不知道为什么Embarcadero反对 Release() 或者他们打算用什么替换它,但您可以尝试使用 TThread::ForceQueue() 到 delete 这个 TForm 对象,例如:

void __fastcall TMyForm::ReleaseMe()
{
    // Release()
    TThread::ForceQueue(NULL, &DeleteMe);
}

void __fastcall TMyForm::DeleteMe()
{
    delete this;
}

或者,如果您使用的是基于Clang的编译器,则可以使用C++11 lambda:

void __fastcall TMyForm::ReleaseMe()
{
    // Release()
    TThread::ForceQueue(nullptr, [this](){ delete this; });
}

在Delphi中,您可以使用

ReleaseForm;

我想它也适用于C++Builder。

在Delphi 10.4中 OnClose 事件 TForm . 我想他们希望你把它设置为 caFree 而不是打电话 Release .