La fenetre de mon appli reste en dessous de toutes les autres fenetres apres un Résolu

Question

salut &#224; tous....

voila j'ai une appli, qui, lorsque l'on clic sur un bouton 'minimiser', se "range" dans le tray (&#224; cot&#233; de l'horloge)...

procedure TForm1.BMinimizeClick(Sender: TObject);
begin
 Application.Minimize;
 Form1.Visible:=False;
end;

un clic gauche sur l'icone de l'appli dans le tray la rend visible &#224; nouveau... :

procedure TForm1.WMAppelMessage(var msg : TMessage);
begin
if msg.LParam=Wm_LButtonDown then begin
         Form1.Visible:=True;
         Application.Restore;
         end;
end;

mais elle reste sous toutes fenetres ouvertes (par exemple mon explorer etc...)

que faire pour qu'elle r&#233;apparaisse au dessus de toutes les fen&#234;tres ???

merci de vos r&#233;ponses....

ni69 · Accepted Answer

Le blem vient de Form1.Visible := false
.....
essaye de remplacer ceci par ShowWindow(Application.Handle, SW_Hide)

et Form1.Visible := true
 par ShowWindow(Application.Handle, SW_Show)
&#231;a aura le m&#234;me effet (enl&#232;ve le prog de la bare des t&#226;ches) :

procedure TForm1.BMinimizeClick(Sender: TObject);
begin
 Application.Minimize;
 ShowWindow(Application.Handle, SW_Hide)

end;

procedure TForm1.WMAppelMessage(var msg : TMessage);
begin
if msg.LParam=Wm_LButtonDown then begin
         ShowWindow(Application.Handle, SW_Show)

         Application.Restore;
         end;
end;


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

ni69 · Answer

oula : petit blem pour la taille des caract&#232;res.... D&#233;sol&#233; 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

emmanuelgo · Answer

c'est bien &#231;a...merci beaucoup !

La fenetre de mon appli reste en dessous de toutes les autres fenetres apres un

3 réponses

Votre réponse

Discussions similaires