窗口跟随-Win32::GUI

QQ1921961

mysqllog 发表于 2012-04-17 14:27
回复 8# QQ1921961

我知道了，
你没开启“Show window contents while dragging”。

我想想办法。

QQ1921961

mysqllog 发表于 2012-04-17 14:27
回复 8# QQ1921961

稍则修改！
msgcode 换成 WM_MOVE

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

复制代码