不错，感谢楼主分享。

SixRC 发表于 2018-2-6 16:40
#随主窗口移动而移动
hm = Win32API.new('kernel32','GetModuleHandleA','p','l').call('RGSS103J')
code ...

同样的窗口x,y坐标在不同分辨率的电脑生成的位置不同

Tian_Ya 发表于 2018-2-5 23:52
关于前辈的RMXP多窗体 v2.0
请问能否实现，生成的窗体跟随主窗体的移动而移动
要如何做到呢？ ...

RUBY 代码复制

#随主窗口移动而移动
hm = Win32API.new('kernel32','GetModuleHandleA','p','l').call('RGSS103J')
code = [139,68,36,4,139,128,196,182,18,0,139,64,8,194,16,0].pack('C*')
$main_hwnd = Win32API.new('user32.dll','CallWindowProc','pllll','l').call(code,hm,0,0,0)
xy = ' '*16
Win32API.new('user32','GetWindowRect','lp','v').call($main_hwnd,xy)
$main_xy = xy.unpack('ll')
class << Graphics
  GetWindowRect = Win32API.new('user32','GetWindowRect','lp','v')
  MoveWindow = Win32API.new('user32','MoveWindow','llllll','l')
  alias e_update update
  def update
    xy = ' '*16
    GetWindowRect.call($main_hwnd,xy)
    if (xy1 = xy.unpack('ll')) != $main_xy
      GetWindowRect.call(Ewindow::Hwnd,xy)
      xy2 = xy.unpack('llll')
      MoveWindow.call(Ewindow::Hwnd,xy2[0]+xy1[0]-$main_xy[0],
                                   xy2[1]+xy1[1]-$main_xy[1],
                                   xy2[2]-xy2[0],
                                   xy2[3]-xy2[1],0)
      $main_xy = xy1
    end
  e_update
  end
end

#随主窗口移动而移动


hm = Win32API.new('kernel32','GetModuleHandleA','p','l').call('RGSS103J')


code = [139,68,36,4,139,128,196,182,18,0,139,64,8,194,16,0].pack('C*')


$main_hwnd = Win32API.new('user32.dll','CallWindowProc','pllll','l').call(code,hm,0,0,0)


xy = ' '*16


Win32API.new('user32','GetWindowRect','lp','v').call($main_hwnd,xy)


$main_xy = xy.unpack('ll')


class << Graphics


  GetWindowRect = Win32API.new('user32','GetWindowRect','lp','v')


  MoveWindow = Win32API.new('user32','MoveWindow','llllll','l')


  alias e_update update


  def update


    xy = ' '*16


    GetWindowRect.call($main_hwnd,xy)


    if (xy1 = xy.unpack('ll')) != $main_xy


      GetWindowRect.call(Ewindow::Hwnd,xy)


      xy2 = xy.unpack('llll')


      MoveWindow.call(Ewindow::Hwnd,xy2[0]+xy1[0]-$main_xy[0],


                                   xy2[1]+xy1[1]-$main_xy[1],


                                   xy2[2]-xy2[0],


                                   xy2[3]-xy2[1],0)


      $main_xy = xy1


    end


  e_update


  end


end

把它插到子窗口的脚本前面就可以了
哪个或哪些个子窗口需要随着主窗口动而动就插过去
子窗口需要是后台运行的
原理是检测主窗口的位置 他动了子窗口就跟着动 所以每次update会刷新位置
子窗口自己移动不会影响主窗口 测试了下效率和效果蛮好的

关于前辈的RMXP多窗体 v2.0
请问能否实现，生成的窗体跟随主窗体的移动而移动
要如何做到呢？

我还以为是黑Graphics在多个窗口上画，没想到这么高端，连内存都独立了

虽然对“当作多线程来用”非常感兴趣但是范例闪退……

无论是双击game.exe、从工程测试还是管理员身份运行，都直接窗口出现一两秒后直接没有了，什么内容都还没显示就消失了……
Ewindow文件夹里有两个dll和两个rxdata。
32位Win7系统，也许是个例吧，楼主可以等等看别的坛友

在main里到处加p找是在哪里出问题的，然后定位在了p1.run这里，这以上的p都p出来了，后面的没出来就闪退了。

楼主更新了主楼的脚本，现在已经可以使用了