光标没有了。。

冥界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;