Chris Rogers wrote:
[snip]
> The whole idea is to be able to use the mouse to grab
> any control on a given Win32::GUI window and drag it
> to a new location. Sort of a gui designer.
Apologies for my first response, I completely mis-understood
What you were trying to do.
Is this better? Look at MSDN documentation for WM_NCHITTEST
and then ask here if you need an explanation of how/why this
works:
#!perl -w
use strict;
use warnings;
use Win32::GUI();
# Constants
sub WM_NCHITTEST() {132}
sub HTCAPTION() {2}
my $mw = Win32::GUI::Window->new(
-title => "Designer",
-pos => [100,100],
-size => [400,300],
);
$mw->AddTextfield(
-size => [100,100],
-multiline => 1,
-text => 'Left mouse to drag',
)->Hook(
WM_NCHITTEST,
sub { $_[0]->Result(HTCAPTION); 0;}
);
$mw->Show();
Win32::GUI::Dialog();
exit(0);
__END__
Regards,
Rob.
=
This email message and any attachments thereto are intended only for use by the
addressee(s) named above, and may contain legally privileged and/or
confidential information. If the reader of this message is not the intended
recipient, or the employee or agent responsible to deliver it to the intended
recipient, you are hereby notified that any dissemination, distribution or
copying of this communication is strictly prohibited. If you have received this
communication in error, please immediately notify the [EMAIL PROTECTED] and
destroy the original message
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
