GOM引擎源码RunGate窗口内嵌部分源码解析_gom引擎说明书文档

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;