[perl-win32-gui-users] Topmost Windows?

[Steven Swenson]

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);