光标没有了。。
为啥嵌入的 窗体 中的 光标没有啦？procedure TForm2.Button1Click(Sender: TObject);
var
h: HWND;
p: array 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;
页:
[1]