如何將R Tk窗口移到父進程的屏幕？

Question

我正在從C＃應用程序創建R進程，運行的R腳本創建一個Tk窗口。 現在，我的C＃應用​​程序正在第二台監視器上運行時，該窗口始終顯示在主監視器上。 我如何將其移動到第二台監視器（當有父進程存在時）還是首先要在第二台監視器上創建它？

這是我現在啟動該過程的方式：

 var process = new System.Diagnostics.Process
 {
     StartInfo = new ProcessStartInfo(rFilepath, String.Format("\"{0}\"", scriptFilepath))
 };
 process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;
 process.StartInfo.CreateNoWindow = true;
 process.StartInfo.UseShellExecute = false;
 process.StartInfo.RedirectStandardOutput = process.StartInfo.RedirectStandardError = true;
 process.Start();
 process.EnableRaisingEvents = true;
 process.Exited += (x, y) =>
 {
      if (process.ExitCode != 0)
          Program.HandleException(new Exception(String.Format("Output:\r\n{0}\r\n\r\nError:\r\n{1}",
                                                process.StandardOutput.ReadToEnd(),
                                                process.StandardError.ReadToEnd())));
 };

這是設置主窗口的R腳本的一部分：

base <- tktoplevel()
tkwm.title(base, "AppName")

// create frames and controls here and put them in with tkgrid

tcl("wm", "attributes", base, topmost=TRUE)
tcl("wm", "attributes", base, topmost=FALSE)
tkfocus(base)

Answer 1

我不是R專家，但是由於您的問題沒有答案，因此我將嘗試其中的一個。

以下是通用代碼，該代碼可以將子進程的主窗口從C＃中移出。 由於它使用WinAPI SetWindowPos函數，因此此處使用了一些P / Invoke。

從SetWindowPosFlags的導入有點嚇人，但這只是Windows API中記錄的原始標頭的C＃版本。

下面的代碼使窗口X +10和Y +10相對於父進程窗口移動。 您可以更改X和Y以反映您的實際需求。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Threading;

namespace WindowsPosTests
{
[Flags()]
enum SetWindowPosFlags : uint
{
    /// <summary>If the calling thread and the thread that owns the window are attached to different input queues, 
    /// the system posts the request to the thread that owns the window. This prevents the calling thread from 
    /// blocking its execution while other threads process the request.</summary>
    /// <remarks>SWP_ASYNCWINDOWPOS</remarks>
    AsynchronousWindowPosition = 0x4000,
    /// <summary>Prevents generation of the WM_SYNCPAINT message.</summary>
    /// <remarks>SWP_DEFERERASE</remarks>
    DeferErase = 0x2000,
    /// <summary>Draws a frame (defined in the window's class description) around the window.</summary>
    /// <remarks>SWP_DRAWFRAME</remarks>
    DrawFrame = 0x0020,
    /// <summary>Applies new frame styles set using the SetWindowLong function. Sends a WM_NCCALCSIZE message to 
    /// the window, even if the window's size is not being changed. If this flag is not specified, WM_NCCALCSIZE 
    /// is sent only when the window's size is being changed.</summary>
    /// <remarks>SWP_FRAMECHANGED</remarks>
    FrameChanged = 0x0020,
    /// <summary>Hides the window.</summary>
    /// <remarks>SWP_HIDEWINDOW</remarks>
    HideWindow = 0x0080,
    /// <summary>Does not activate the window. If this flag is not set, the window is activated and moved to the 
    /// top of either the topmost or non-topmost group (depending on the setting of the hWndInsertAfter 
    /// parameter).</summary>
    /// <remarks>SWP_NOACTIVATE</remarks>
    DoNotActivate = 0x0010,
    /// <summary>Discards the entire contents of the client area. If this flag is not specified, the valid 
    /// contents of the client area are saved and copied back into the client area after the window is sized or 
    /// repositioned.</summary>
    /// <remarks>SWP_NOCOPYBITS</remarks>
    DoNotCopyBits = 0x0100,
    /// <summary>Retains the current position (ignores X and Y parameters).</summary>
    /// <remarks>SWP_NOMOVE</remarks>
    IgnoreMove = 0x0002,
    /// <summary>Does not change the owner window's position in the Z order.</summary>
    /// <remarks>SWP_NOOWNERZORDER</remarks>
    DoNotChangeOwnerZOrder = 0x0200,
    /// <summary>Does not redraw changes. If this flag is set, no repainting of any kind occurs. This applies to 
    /// the client area, the nonclient area (including the title bar and scroll bars), and any part of the parent 
    /// window uncovered as a result of the window being moved. When this flag is set, the application must 
    /// explicitly invalidate or redraw any parts of the window and parent window that need redrawing.</summary>
    /// <remarks>SWP_NOREDRAW</remarks>
    DoNotRedraw = 0x0008,
    /// <summary>Same as the SWP_NOOWNERZORDER flag.</summary>
    /// <remarks>SWP_NOREPOSITION</remarks>
    DoNotReposition = 0x0200,
    /// <summary>Prevents the window from receiving the WM_WINDOWPOSCHANGING message.</summary>
    /// <remarks>SWP_NOSENDCHANGING</remarks>
    DoNotSendChangingEvent = 0x0400,
    /// <summary>Retains the current size (ignores the cx and cy parameters).</summary>
    /// <remarks>SWP_NOSIZE</remarks>
    IgnoreResize = 0x0001,
    /// <summary>Retains the current Z order (ignores the hWndInsertAfter parameter).</summary>
    /// <remarks>SWP_NOZORDER</remarks>
    IgnoreZOrder = 0x0004,
    /// <summary>Displays the window.</summary>
    /// <remarks>SWP_SHOWWINDOW</remarks>
    ShowWindow = 0x0040,
}

public partial class Form1 : Form
{
    [DllImport("user32.dll", SetLastError = true)]
    static extern bool SetWindowPos(IntPtr hWnd, IntPtr hWndInsertAfter, int X, int Y, int cx, int cy, SetWindowPosFlags uFlags);

    public Form1()
    {
        InitializeComponent();
    }        

    private void button1_Click(object sender, EventArgs e)
    {
        Process process = new Process();
        process.StartInfo.WindowStyle = ProcessWindowStyle.Normal;

        process.StartInfo.FileName = Application.ExecutablePath;

        //Starts new process
        process.Start();

        //Wait for process main handle be acquired
        while (process.MainWindowHandle == IntPtr.Zero)            
            Thread.Sleep(1);            

        //Move window
        SetWindowPosFlags flags = SetWindowPosFlags.ShowWindow | SetWindowPosFlags.IgnoreResize | SetWindowPosFlags.IgnoreZOrder;
        SetWindowPos(process.MainWindowHandle, new IntPtr(0), this.Left + 10, this.Top + 10, 0, 0, flags);
    }

}

}