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 => 0x40;
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