HELP:How can I bring my MDIForm to the foreground i.e. on top of all the other windows

[Sanjit_Singh]

Hi All,
I have a problem and I would be grateful if somebody could help me out asap. I have a MDIForm along with children forms. I want to include some lines of code in my program that would allow this MDIForm to display on top of all the other program windows on my desktop.
As of now, I have a directory monitor that looks in a directory. When a new file is copied in the directory, I want this MDIForm (which is already running) to come on top of all the other windows so that the user can see this form in front of him. If this is not the case, then the user has to look for the MDIForm window and click on it to see it & I dont want this.
I hope you understood my problem. Looking forward to a response.Thanks in advance for the help!!
Sanjit

[Cimperiali]

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
private Declare Sub SetWindowPos Lib "User32" (byval hWnd as Long, byval hWndInsertAfter as Long, byval X as Long, byval Y as Long, byval cx as Long, byval cy as Long, byval wFlags as Long)

private Sub Form_Activate()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
'set the window position to topmost
SetWindowPos me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub





Special thanks to Lothar "the Great" Haensler, Tom Archer, Chris Eastwood, TCartwright, Bruno Paris, Dr_Micahel
and all the other wonderful people who made and make Codeguru a great place.
Come back soon, you Gurus.

The Rater