Delphi 11 Alexandria PaintBox 在 RDP 中闪烁

Question

我刚刚从 Delphi 10.4.2 升级到 Delphi 11 Alexandria。我经常使用 RDP，因此当 TPaintBox 失效时我注意到闪烁。奇怪的是，如果带有 TPaintBox 的表单是第一个创建的表单，它不会闪烁。如果在本地计算机上运行，​​它也不会闪烁。仅在 RDP 中。如果我在 Delphi 10.4.2 中编译相同的项目，它在 RDP 中不会闪烁。

有人能解决这个问题吗？这“仅仅是”Delphi 11 中的一个错误吗？

编辑：演示项目http://procurisupdate.se/downloads/Temp/PaintBoxFlicker.zip

具有两种形式的简单项目。其中一个有一个 TImage，所以它相当大。如果按原样运行，当您单击图片并移动鼠标时，它会闪烁。如果您进行更改，以便首先创建 Form23（或者即使它是在 Application.run 之前创建的），它也不会闪烁。请注意，它仅在 RDP 中闪烁。

Edit2：经过一番查看后，我在 TApplication.Run 中发现以下内容：

procedure TApplication.Run;
begin
  FRunning := True;
  try
{$IF NOT DEFINED(CLR)}
    AddExitProc(DoneApplication);
{$ENDIF}
    RemoteSessionCheck; // This has been added since Delphi 10.4.2
    if FMainForm <> nil then
    ...

如果我注释掉 RemoteSessionCheck; 并重新编译（您必须将您的 Source\vcl 目录添加到库路径），它不会闪烁。

Answer 1

根据与 Embarcadero 的私人沟通：

仅供参考：这个问题似乎与以下内容有关：

TRemoteSessionChangedEvent = procedure (Sender: TObject; var InRemoteSession) of object;

这应该是：

TRemoteSessionChangedEvent = procedure (Sender: TObject; var InRemoteSession: Boolean) of object;

我们的Support团队找到了这个问题；解释了为什么它不影响自动创建的表单，以及这将如何混乱C++（其中非类型化参数将公开为Variant）。

已提交错误通知单，但仅对其内部系统私有。