窗口跟隨-Win32::GUI

mysqllog

目前用Win32::GUI寫工具，界面和下面這圖相似：


當(dāng)然沒有這么華麗

功能描述：
當(dāng)移動左邊的窗口時，右邊也要相對移動，但目前我移動左邊窗口時，右邊的不會移動，想知道要怎么實現(xiàn)這樣的功能。
我的主窗體代碼：
$main = Win32::GUI::Window->new(
  -name => 'Update',
  -text => '帖子查看器',
  -width => 240,
  -height => 400,
  -class=>$wm_class,
  -maximizebox=>0,
);

右邊窗體的創(chuàng)建代碼:
$Rightwin = new Win32::GUI::Window(
    -name  => Rightwin,
    -title => "列表",
    -pos   => [ $x + 240, $y+20 ],
    -size  => [ 640, 360 ],
        -class => $right_class,
        -maximizebox => 0,
        -parent => $main,
);

只要能得到左邊窗體的右上角和右下角的坐標(biāo)應(yīng)該就能實現(xiàn)了，再通過$main->Rightwin->Moveto之類的函數(shù)。怎么得到這兩個移動后的坐標(biāo)呢？

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. 
    

復(fù)制代碼

iamlimeng

回復(fù) 3# QQ1921961

這個效果很Cool！

mysqllog

回復(fù) 3# QQ1921961


    早上一來，這個問題就解決了，開心

隨便說一句，既然是Win平臺，何來#!/usr/bin/perl?

mysqllog

回復(fù) 3# QQ1921961


    似乎不太理想啊，移動左邊的，右邊的要等你再移動下左邊的時候，它才會移動到你第一次移動左邊的窗口時的坐標(biāo)。

這些API，從哪看來的��？

QQ1921961

mysqllog 發(fā)表于 2012-04-17 09:44
回復(fù) 3# QQ1921961

Windows 上首行加shebang標(biāo)識確實無太大意義，
我也只是習(xí)慣性為了與linux保持一致而已。

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

純屬個人習(xí)慣 ;-p

QQ1921961

mysqllog 發(fā)表于 2012-04-17 09:50
回復(fù) 3# QQ1921961

我這沒這種問題啊。

你是指移動右邊窗口， 左窗口也同樣跟隨吧？
如何是這樣，只需右窗也依樣添加一個Hook。


詳細(xì)可查閱 Win32-GUI的文檔: http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi
當(dāng)然Win32-GUI只是Windows API的封裝，細(xì)節(jié)處查閱MSDN也是必要的。

andy20008

回復(fù) 4# iamlimeng


確實很Cool，呵呵。。

mysqllog

回復(fù) 8# QQ1921961


    我只移動左邊的窗口

在我的win2003上，在移動左邊時，右邊的不會及時的跟隨，只有在第二次移動時才會移動到第一次移動的坐標(biāo)點上。