Discussion :

[WebPac]

Bonjour tout le monde.

Lors de l'exécution de l'application, je rends la form principale invisible afin qu'on ne la voit pas et que je puisse afficher des informations dans une petite form secondaire.
Lorsque le traitement est fini, je désirerais pouvoir minimiser l'application.
Si je ne rends pas la fenetre principale visible avant de minimiser l'application, lorsque qu'elle est relancée par un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowWindow( aHandle, SW_RESTORE );

, elle ne se réaffiche pas (car toujours invisible).

La seule solution que j'ai trouvé serait de la rendre visible juste avant de la minimiser, mais quand on fait ainsi, elle se réaffiche un court instant pour se réduire dans la barre des tâches, ce qui est d'un effet visuel assez désagréable, on pourait croire que l'application bugue.

J'ai essayé de la rendre visible juste après l'avoir minimisée, mais dans ce cas, lorsqu'on la restaure on ne peut plus la minimiser, ce qui est fort embêtant.

Je m'arrache les cheveux, j'ai cherché du côté de SendToBack aussi mais ça n'a rien donné.

Est-ce que quelqu'un a une idée ou a déjà eu ce problème ?
Merci.

[devyan]

Bonjour,

Une solution souvent utilisée consiste à déplacer la fenêtre en dehors de la zone visible de l'écran (comme ceci, on ne la voit plus)

[WebPac]

Oui mais quand l'utilisateur relance l'application, il faut qu'elle soit visible et à la place où il l'a laissée en exécutant.

[devyan]

Oui mais quand l'utilisateur relance l'application, il faut qu'elle soit visible et à la place où il l'a laissée en exécutant.

Rien n'empêche de procéder comme suit au démarrage :
- mémoriser la position de la fenêtre non visible,
- déplacer la fenêtre en dehors de l'écran,
- afficher la fenêtre puis la minimiser,
- replacer la fenêtre aux coordonnées mémorisées.

[Tardiff Jean-François]

Bonjour peut en reimplémentant l'éve,ement sys command

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
procedure WMSysCommand(VAR Message: TWMSysCommand); message WM_SYSCOMMAND;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
procedure TFForm.WMSysCommand(var Message: TWMSysCommand);
begin
  ASetChildActive := False;
  if (((Message.cmdtype and $FFF0)= SC_RESTORE)   then begin
    traitement pour rendre la form visible
  end;
  inherited;
end;

[WebPac]

Merci pour votre aide.
Finalement, j'ai pris la solution de devyan, qui est la plus simple et marche sans problème.

Jean-François, j'ai essayé ta méthode pour ne pas rester bête, mais je ne sais pas quelle est la variable ASetChildActive.
De plus ça ne marche pas très bien, on dirait que le message n'est pas un SC_RESTORE quand il y a un ShowWindow( aHandle, SW_RESTORE );

[Tardiff Jean-François]

Désolé pour le ASetChildActive, j'ai oublier de l'enlever lorsque j'ai purer le code apres un couper /coller.


La source est une appli qui fonctionne avec SW_RESTORE, je ne comprend pas pourqoui cela ne fonctionne pas chez vous. Par contre, lors d'e l'envoi de l'ordre, il y a x message SysEvent différents qui passe avant que le SW_RESTORE Soit effectif. Normalement il y a un SW_RESTORE dans le lot.

[WebPac]

Quand l'application reçoit un message SW_RESTORE, est-ce que forcément elle lance l'évènement OnRestore définit sur l'application ?

Car quand l'application est relancée à partir d'une autre qui lance le ShowWindow, l'évènement OnRestore n'est pas lancé, et c'est pourquoi je dois faire autrement.

[Tardiff Jean-François]

Je n'avais pas penser a la 1° fois.
Autant pour mois. Désolé

[WebPac]

Ce n'est pas grave, je me suis arraché pas mal de cheveux déjà pour trouver une solution.