Application toujours au dessus.

bonjour,
pour une de mes appli, je cherche à ce que les forms de celle-ci restent toujours au dessus de autres fenetres ouvertes dans windows.
pour cela j'ai essayer la fonction setzorder dans la procédure on paint de la forme mais cela fonctionne moyen. en effet dès que je clique sur une des forms de mon application la fonction setzorder ne semble plus fonctionner et mes fenetres sont cachées par exemple par IE. j'utilse aussi a la crétion de la form SetWindowPos(Handle ,HWND_TOPMOST,0,0,0,0, SWP_SHOWWINDOW);


Si vous avez une idée je suis preneur

Form1.Formstyle:=FsStayOnTop;

Bon Coding ....
 
ManChesTer.

j'ai oublié de préciser(mea culpa) que les forms de l'appli que je voudrais voir au dessus des autres ne sont pas les forms principales, ce qui fait que dans mon cas FsStayOnTop ne marche pas.

A tu essayer
Var TmHandle : Hwnd;

TmHandle:=GetTopWindow(GetDesktopWindow):
If TmHandle<>Handle then
 SetWindowPos(Handle,TmHandle,left,top,width,height,SWP_SHOWWINDOW or  SWP_FRAMECHANGED);


Bon Coding ....

ManChesTer.

ben j'ai essayé de mettre ton code dans le on paint et à la creation, mais ca marche pas , aurais-je oublie quelque chose

Salut,
tu peux aussi essayer la fonction SetForegroundWindow de l'unité Windows :

function SetForegroundWindow(hWnd: HWND): BOOL;

SetForegroundWindow(Handle);


@+
Cirec