I've used SetForegroundWindow() from a NotifyIcon and that works on NT4.
sub ni_Click
{
if ($Window->IsVisible)
{
$Window->Hide();
}
else
{
$Window->Show();
$Window->SetForegroundWindow();
}
return 0;
}
> -----Original Message-----
> From: Piske, Harald [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, June 06, 2001 10:12 PM
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: RE: [perl-win32-gui-users] BringWindowToTop doesn't
>
>
> Works with me ... I have two windows, one button in the first
> window brings
> the other to top. Complete code snippet attached for you to
> check if it
> works with you and figure out the differences to yours. Oh, and I only
> checked on Win2k.
>
> Have fun,
> Harald
>
> > -----Original Message-----
> > From: Glenn Linderman [mailto:[EMAIL PROTECTED]
> > Sent: Mittwoch, 6. Juni 2001 18:25
> > To: Win32::GUI
> > Subject: [perl-win32-gui-users] BringWindowToTop doesn't
> >
> >
> > Hi,
> >
> > So I've got this code, and it doesn't bring the window to
> the top. I
> > can see that each time I click on the notify icon that the code gets
> > executed, both because the print statement fires, and the window
> > redraws. But the window stays behind other windows, in spite of the
> > BringWindowToTop call. It does that with or without the Hide/Show
> > sequence, and with or with a Disable/Enable sequence wrapped
> > around the
> > BringWindowToTop. ActivePerl 5.6.1 build 626, Win32::GUI
> > 0.0.558. What
> > trick am I missing?
> >
> > I'm quite willing to throw all this away, and use whatever
> > works... this
> > is just what sounded like should work from the documentation.
> >
> > I should note that $mw is using the "parent window" trick to
> > avoid being
> > on the task bar. I further note that sufficient Alt-Tab
> keystrokes do
> > eventually raise the window to the top.
> >
> > sub notify_icon_Click
> > { if ( $mw -> IsVisible ())
> > { print "Bring Main to Top\n";
> > $mw -> Hide ();
> > $mw -> BringWindowToTop ();
> > $mw -> Show ();
> > }
> > }
> >
> > --
> > Glenn
> > =====
> > Due to the current economic situation, the light at the
> > end of the tunnel will be turned off until further notice.
> >
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>
>
