如何 解决 内嵌的窗口 没有焦点问题？

冥界3大法王

[Delphi] 纯文本查看 复制代码

procedure TForm2.Button1Click(Sender: TObject);
var
  h: HWnd;
  p: array[0..254] of char;
begin
  h := GetWindow(Handle, GW_HWNDFIRST);
  while h <> 0 do
  begin
    GetClassName(h, p, Length(p));
    if p = Keyword3 then                    //如果窗口类名=.INI窗口标题对应的类名
    begin
      GetWindowText(h, p, Length(p));      //那就得到其窗口标题
     //  showmessage(p);
      Clipboard.AsText := p;
    end;
    h := GetWindow(h, GW_HWNDNEXT);
  end;

  h := FindWindow(nil, PWideChar(Clipboard.AsText));    // 这里再把p分配给找窗口
  if h <> 0 then
  begin
    Winapi.Windows.SetParent(h, Self.Scite.Handle);
    Winapi.Windows.MoveWindow(h, 0, 0, Self.Scite.Width, Self.Scite.Height, True);
    SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) and (not WS_CAPTION) and (not WS_BORDER) and (not WS_THICKFRAME));         //去除窗口标题栏！
  end
  else
    ShowMessage('程序未运行,请点【顶部齿轮图标】重新配置！');
end;

ying656

应该是学习框架机制及原理，我也不懂这个，目前解决办法 找图