From: David N. <Dav...@mo...> - 2011-03-17 19:55:14
|
Kevin, Thanks for making an easy to understand example. Would you believe when I incorporated this into my program, it took the whole day? This is because the code I've been modifying had the -dialogui option in the creation of the DialogBox. This made the Window a DialogBox again causing the intended effect to not work. I learn allot by having this happen. I appreciate the support. Dave ________________________________ From: Kevin Marshall [mailto:kej...@ho...] Sent: Wednesday, March 16, 2011 9:05 PM To: David Newman Cc: per...@li... Subject: Re: [perl-win32-gui-users] how to get the enter key to work with two textfields in win32-gui perl David, You should really only have one button created with the -ok option in a window. Even if you have many, the Enter key press would only be sent to the first button created with the option. Usually the option is used in conjunction with the -cancel option and is used to close the DialogBox when either the Enter or ESC key is pressed. To get the functionality that you are looking for, I suggest using a KeyDown event for the textfields and test for the Enter key. Here is an example modified from your code sample. Note that the DialogBox has been changed to a Window, since the DialogBox would intercept any Enter key presses before the textfields would get a chance to respond to the event: #!perl use strict; use warnings; use Win32::GUI qw(); use Win32::GUI::Constants qw(VK_RETURN); my $W1 = Win32::GUI::Window->new( -name => "W1", -title => "First Window", -pos => [ 100, 100 ], -size => [ 300, 200 ], ); $W1->AddButton( -name => "ButtonW1", -text => "FirstName", -pos => [ 87, 100 ], ); $W1->AddButton( -name => "ButtonW2", -text => "LastName", -pos => [ 87, 120 ], ); $W1->AddTextfield( -name => "tf1", -pos => [20,40], -size => [250,20], -prompt => "1:", ); $W1->AddTextfield( -name => "tf2", -pos => [20,60], -size => [250,20], -prompt => "2:", ); $W1->Show(); print "This is a test\n"; Win32::GUI::Dialog(); exit(0); sub W1_Terminate { return -1; } # Keydown event for textfield 1 sub tf1_KeyDown { my($flags,$key) = @_; if($key == VK_RETURN){ ButtonW1_Click(); } return 1; } # Keydown event for textfield 2 sub tf2_KeyDown { my($flags,$key) = @_; if($key == VK_RETURN){ ButtonW2_Click(); } return 1; } sub ButtonW1_Click { print "Button 1 Clicked\n"; my $text = $W1->tf1->Text(); print "$text\n"; } sub ButtonW2_Click { print "Button 2 Clicked\n"; my $text = $W1->tf2->Text(); print "$text\n"; } __END__ Hope this helps, Kevin. I'm interested in using two textfields in a DialogBox. Each textfield needs to except input from the enter key. I have learned that when you create your first button with -ok => 1, this becomes the button that will click regardless of the textbox you are in. I'm including some code I'm playing around with: When you run this and enter 1 for TextBox 1 and 2 for TextBox 2, Then click on FirstName Button - The result is Button 1 Clicked and a 1 on the next line. This is Expected. Then click on LastName Button - The result is Button 2 Clicked and a 2 on the next line. This is Expected. When you go into TextBox1 and click enter the result is "Button 1 Clicked" and a 1 on the next line. This is Expected. When you go into TextBox2 and click enter the result is This is NOT Expected. How do I get the result "Button 2 Clicked" and a 2 on the next line, when I go into textbox2 and click ? It seems the -ok => 1 only works for the first button created. Any suggestions. Thanks. Dave use Win32::GUI; my $W1 = Win32::GUI::DialogBox->new( -name => "W1", -title => "First Window", -pos => [ 100, 100 ], -size => [ 300, 200 ], ); $W1->AddButton( -name => "ButtonW1", -text => "FirstName", -pos => [ 87, 100 ], -ok => 1, ); $W1->AddButton( -name => "ButtonW2", -text => "LastName", -pos => [ 87, 120 ], -ok => 1, ); # $W1->ButtonW1->Disable(); $W1->AddTextfield( -name => "tf1", -left => 20, -top => 40, -width => 250, -height => 20, -prompt => "1:", ); $W1->AddTextfield( -name => "tf2", -left => 20, -top => 60, -width => 250, -height => 20, -prompt => "2:", ); $W1->Show(); print "This is a test\n"; Win32::GUI::Dialog(); exit(0); sub W1_Terminate { return -1; } sub ButtonW1_Click { print "Button 1 Clicked\n"; my $text = $W1->tf1->Text(); print "$text\n"; } sub ButtonW2_Click { print "Button 2 Clicked\n"; my $text = $W1->tf2->Text(); print "$text\n"; } ------------------------------------------------------------------------ ------ Colocation vs. Managed Hosting A question and answer guide to determining the best fit for your organization - today and in the future. http://p.sf.net/sfu/internap-sfd2d _______________________________________________ Perl-Win32-GUI-Users mailing list Per...@li... https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/ |