相关疑难解决方法(0)

• 所以,我有一个应用程序加载不同的插件,并在TPageControl上为每个插件创建一个新选项卡.
• 每个DLL都有一个与之关联的TForm.
• 使用父hWnd创建表单作为新的TTabSheet.

• 由于就VCL而言,TTabSheets不是表单的父级(不想使用动态RTL和其他语言的插件),我必须手动处理调整大小.我这样做如下:

  var
    ChildHandle : DWORD;
  begin
    If Assigned(pcMain.ActivePage) Then
      begin
      ChildHandle := FindWindowEx(pcMain.ActivePage.Handle, 0, 'TfrmPluginForm', nil);
      If ChildHandle > 0 Then
        begin
        SetWindowPos(ChildHandle, 0, 0, 0, pcMain.ActivePage.Width, pcMain.ActivePage.Height, SWP_NOZORDER + SWP_NOACTIVATE + SWP_NOCOPYBITS);
      end;
    end;
  

  Run Code Online (Sandbox Code Playgroud)

现在,我的问题是当应用程序调整大小时,TGroupBox中的所有TGroupBox和TLabel都会闪烁.不在TGroupboxes内的TLabel很好,不会闪烁.

我试过的事情:

• WM_SETREDRAW后跟一个RedrawWindow
• TGroupBoxes和TLabels上的ParentBackground设置为False
• DoubleBuffer:= True
• LockWindowUpdate(是的,即使我知道这是非常错的)
• 透明:= False(甚至覆盖create来编辑ControlState)

有任何想法吗？