procedure TfrmMain.CheckBox27Click(Sender: TObject);
var
I: Integer;
begin
if CheckBox27.Checked then
begin
for I := 0 to Length(RunGate) - 1 do
begin
if RunGate[I].boGetStart and (RunGate[I].btStartStatus = 2) then
begin
Windows.SetParent(RunGate[I].MainFormHandle, 0);
end;
end;
end
else
begin
for I := 0 to Length(RunGate) - 1 do
begin
if RunGate[I].boGetStart and (RunGate[I].btStartStatus = 2) then
begin
Windows.SetParent(RunGate[I].MainFormHandle, ScrollBoxPanel.Handle);
Windows.GetWindowRect(RunGate[I].MainFormHandle, hRect);
Windows.MoveWindow(RunGate[I].MainFormHandle, 0, 0, hRect.Right - hRect.Left, hRect.Bottom - hRect.Top, True); //设置窗口位置
ShowWindow(RunGate[I].MainFormHandle, SW_HIDE);
ShowWindow(RunGate[I].MainFormHandle, SW_MINIMIZE); //最小化
ShowWindow(RunGate[I].MainFormHandle, SW_SHOW);
end;
end;
end;
end;
当前位置: 首页 传奇脚本 正文
GOM引擎源码RunGate窗口内嵌部分源码解析_gom引擎如何添加元素属性
本站发布的资源进攻学习研究只用,请勿用于商业用途,否则其后果由使用者本人承担,本站不承担任何后果






还没有评论,来说两句吧...