Thanks so much. That does it for me too. SetForegroundWindow is the key
API for this functionality.
Side note TWIMC: the Windows API is clearly too big, with too many ways to
do the wrong thing, but that make it sound like it is the right thing.
Focused searching can easily lead down the wrong trail, and there is
insufficient cross-referencing among similar sounding topics. Not your
fault, but sure doesn't make it easy to learn the Windows API.
Peter Eisengrein wrote:
> 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
> > >
> >
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.
