窗口跟随-Win32::GUI

mysqllog

目前用Win32::GUI写工具，界面和下面这图相似：


当然没有这么华丽

功能描述：
当移动左边的窗口时，右边也要相对移动，但目前我移动左边窗口时，右边的不会移动，想知道要怎么实现这样的功能。
我的主窗体代码：
$main = Win32::GUI::Window->new(
  -name => 'Update',
  -text => '帖子查看器',
  -width => 240,
  -height => 400,
  -class=>$wm_class,
  -maximizebox=>0,
);

右边窗体的创建代码:
$Rightwin = new Win32::GUI::Window(
    -name  => Rightwin,
    -title => "列表",
    -pos   => [ $x + 240, $y+20 ],
    -size  => [ 640, 360 ],
        -class => $right_class,
        -maximizebox => 0,
        -parent => $main,
);

只要能得到左边窗体的右上角和右下角的坐标应该就能实现了，再通过$main->Rightwin->Moveto之类的函数。怎么得到这两个移动后的坐标呢？

mysqllog

flw不来指点下么，对win32的API完全不了解哦。

QQ1921961

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use Win32::GUI qw(WM_MOVING);
   
6. 
   
7. my $main_win = Win32::GUI::Window->new(
   
8.     -name  => "W1",
   
9.     -title => "W1",
   
10.     -pos   => [ 100, 100 ],
    
11.     -size  => [ 300, 200 ],
    
12. );
    
13. 
    
14. $main_win->Hook(WM_MOVING, \&W1_Moving);
    
15. $main_win->Center();
    
16. $main_win->Show();
    
17. 
    
18. my $sub_win = Win32::GUI::Window->new(
    
19.     -name  => "W2",
    
20.     -title => "W2",
    
21.     -size  => [ 400, 400 ],
    
22. );
    
23. 
    
24. $sub_win->Move($main_win->Left() + $main_win->Width(), $main_win->Top());
    
25. $sub_win->Show();
    
26. 
    
27. Win32::GUI::Dialog();
    
28. 
    
29. exit;
    
30. 
    
31. sub W1_Moving {
    
32.     my ($win, $id, $lParam, $type, $msgcode) = @_;
    
33.    
    
34.     my $x = $main_win->Left() + $main_win->Width();
    
35.     my $y = $main_win->Top();
    
36.    
    
37.     $sub_win->Move($x, $y);
    
38.    
    
39.     return;
    
40. }
    
41. 
    
42. sub W1_Terminate {
    
43.     return -1;
    
44. }
    
45. 
    
46. sub W2_Terminate {
    
47.     return -1;
    
48. }
    
49. 
    

复制代码

iamlimeng

回复 3# QQ1921961

这个效果很Cool！

mysqllog

回复 3# QQ1921961


    早上一来，这个问题就解决了，开心

随便说一句，既然是Win平台，何来#!/usr/bin/perl?

mysqllog

回复 3# QQ1921961


    似乎不太理想啊，移动左边的，右边的要等你再移动下左边的时候，它才会移动到你第一次移动左边的窗口时的坐标。

这些API，从哪看来的啊？

QQ1921961

mysqllog 发表于 2012-04-17 09:44
回复 3# QQ1921961

Windows 上首行加shebang标识确实无太大意义，
我也只是习惯性为了与linux保持一致而已。

而且我的Perl所在路径也通常为 x:\usr\bin\perl.exe

纯属个人习惯 ;-p

QQ1921961

mysqllog 发表于 2012-04-17 09:50
回复 3# QQ1921961

我这没这种问题啊。

你是指移动右边窗口， 左窗口也同样跟随吧？
如何是这样，只需右窗也依样添加一个Hook。


详细可查阅 Win32-GUI的文档: http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi
当然Win32-GUI只是Windows API的封装，细节处查阅MSDN也是必要的。

andy20008

回复 4# iamlimeng


确实很Cool，呵呵。。

mysqllog

回复 8# QQ1921961


    我只移动左边的窗口

在我的win2003上，在移动左边时，右边的不会及时的跟随，只有在第二次移动时才会移动到第一次移动的坐标点上。