Try the option -topmost => 1 in your dialogbox definition, this should
work.

StG

-----Ursprüngliche Nachricht-----
Von: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Im Auftrag von
Steven Swenson
Gesendet: Dienstag, 4. Februar 2003 01:39
An: Win32GUI
Betreff: [perl-win32-gui-users] Topmost Windows?


How does one get a window to sit on top?

I tried the following but it did not seem to work.

use strict;
use constant WS_EX_TOPMOST => 8;
use constant WS_DLGFRAME   => 0x400000;
use constant GWL_EXSTYLE   => -20;


my $main = Win32::GUI::DialogBox->new(
   -name    => "Main",
   -title   => "AD Migration",
   -left    => 100,
   -top     => 100,
   -width   => 260,
   -height  => 180,
   -style   => main::WS_DLGFRAME,
   -background => [255,255,255]
);

$main->SetWindowLong ( main::GWL_EXSTYLE, main::WS_EX_TOPMOST);



-------------------------------------------------------
This SF.NET email is sponsored by:
SourceForge Enterprise Edition + IBM + LinuxWorld = Something 2 See!
http://www.vasoftware.com
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


Reply via email to