Discussion :

[ero-sennin]

Bonjour,

Je me tourne vers vous car j'ai un petit soucis avec mon application. J'ai réaliser une form qui permet de gérer le volume ... un peu comme le réglage du son windows.

Ce que je souhaite, c'est lorsque je clic autre part que sur ma form, celle ci se détruit ...

Voilà, merci

[sjrd]

Utilise l'événement OnDeactivate, c'est fait pour.

[ero-sennin]

J'avais essayé ... mais j'ai pas de résultat :

Voici comment j'appelle ma fiche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TFPrincipale.TrayIconClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    FVolume:=TFVolume.Create(Self);
    FVolume.Show;
    FVolume.Left:=X-(FVolume.Width div 2);
    FVolume.Top:=Y-FVolume.Height-HauteurBarre;
    SetForegroundWindow(FVolume.Handle);
  end;
end;

Voici le OnCreate de la Fiche :

Code :

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

1
2
3
4
5
6
procedure TFVolume.FormCreate(Sender: TObject);
begin
Self.Width:=50;
VolumeWMP.Value:=WMP.settings.volume;
LabPositionVolume.Caption:=IntToStr(WMP.settings.volume);
end;

Et le deactivate :

Code :

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

1
2
3
4
procedure TFVolume.FormDeactivate(Sender: TObject);
begin
  Self.Release;
end;

Je ne vois pas ce qui ne va pas

[Graffito]

Bonjour,

Personnellement, je ne libére jamais d'objet (en particulier, une forme) dans une méthode de cet objet.

Dans ton cas, cela supposerait de remplacer le déactivate par un flag de la forme. Ce flag serait alors testé dans la forme principale (via un timer) afin d'exécuter le release.

[anapurna]

salut

il ne faut jamais liberer la memmoire de l'objet dans une de ses methode

a la limite tu fait un cafree dans le closequerry de ta form et tu fait un close dans le ondesactivate

@+ Phil

[ero-sennin]

Alors je vous explique autre chose aussi:

J'ai mon application qui est dans mon systray.
Donc je n'ai que l'icône.
Un simple clic avec le bouton gauche de la souris fait apparaître la Form Volume à BorderStyle:=BsNone.

Le deactivate se produit chez moi que lorsque je veux restaurer mon application et non quand ma form est deactivate ...

[anapurna]

salut

si c'est ta form principale , il vaut mieux que tu fasse un hide tans que tu ne veut pas fermer ton appli completement

comment gere tu le systray ?

@+ phil

[ero-sennin]

Salut anapurna,

La Form Volume n'est pas la Form Principale ... je la crée dans ma form principale (voir post d'hier à 18h40).

Pour ce qui est du systray, j'utilise le composant de la jvcl mais pour ce qui est de son utilisation ... un clic droit = popupmenu, clic gauche = création de ma form Volume ...

Je ne sais pas si je suis assez précis

[anapurna]

salut

bon on resume tu as une application en systray qui permet ouvrir une fenetre dans un popumenu et tu voudrais que celle ci se ferme lorsque que tu click n'importe ou autre que la forme elle meme comme le ferai un popupmenu

je confirme donc qu'il ne faut pas que tu detruise ta forme depuis elle meme ...par analogie c'est comme ci tu essai de couper la branche sur laqu'elle tu t'été assis.
il faut donc dans l'evenement onclosequery de ta forme faire un cafree

ensuite dans le ondesactivate tu fait tout betement un close

celle-ci devrais se fermer et se detruire tout naturelement

@+ Phil

[ero-sennin]

J'ai omis de dire que j'ai essayé ta solution hier!

J'ai ce code :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFVolume.FormDeactivate(Sender: TObject);
begin
  Self.close;
end;
 
procedure TFVolume.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

Mais rien n'y fait... Je ne comprends pas le comportement de cette Form

Et oui, dès que l'icône de mon application est dans le systray, un clic gauche sur cette icône me permet de créer ma fichie et de la mettre en premier plan (voir le code d'hier a 18h40).

Voilà, je ne sais que dire de plus

[anapurna]

salut

un truc qui me parrait pas coherent dans ton code

Code :

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

1
2
3
4
5
6
 
    FVolume:=TFVolume.Create(Self);
    FVolume.Left:=X-(FVolume.Width div 2);
    FVolume.Top:=Y-FVolume.Height-HauteurBarre;
    FVolume.Show;
    SetForegroundWindow(FVolume.Handle);

moi je l'urai mis sur ma form principal car c'est elle qui va detecter si la fenettre enfant est active ou pas

remplace le donc par

Code :

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

1
2
3
4
5
6
 
   FVolume:=TFVolume.Create(Self);
    FVolume.Left:=X-(FVolume.Width div 2);
    FVolume.Top:=Y-FVolume.Height-HauteurBarre;
    FVolume.Show;
 SetForegroundWindow(Self.Handle);

@+ Phil

[ero-sennin]

Ce coup ci, j'ai rien à l'affichage.

En faisant le débug pas à pas, une fois ma fiche créée, il me l'a détruit directement après ...

Et je ne comprends pas pourquoi tu voulais mettre Self à la place de FVolume puisse c'est bien FVolume que je veux mettre au premier plan ...

Je suis un peu paumé la

[anapurna]

salut

essai un showmodal pluto qu'un show
ou alors va falloir lui passer un message tout les x seconde
afin de savoir si elle est toujour active

le but du SetForegroundWindow etait de redonner la main a ton appli principale (mettre en avant plan)
afin qu'elle puisse gerer le desactivate mais le show n'arrete pas l'affichage d'ou le probleme.
par contre tu voi il gere bien le ondesactivate

[ero-sennin]

Re,

Le showModal ne change rien ...
La solution du Message est la solution qu'il me reste ....
Tu aurais une petite piste stp ?

Merci

[CapJack]

Oh ! Des adeptes de l'Église de Tétracapilloséquençage !

Et pourquoi ne pas laisser l'application créer la fiche et la garder en mémoire, comme toute brave fiche qui se respecte, hmm ?
Ça ne prend très peu de place en mémoire, vous savez !

Ensuite, dans le Deactivate de la fiche :

Code :

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

1
2
3
4
procedure TForm2.FormDeactivate(Sender: TObject);
begin
 Hide;
end;

Et pour faire apparaître la fiche :

Code :

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

1
2
3
4
procedure TForm1.Button4Click(Sender: TObject);
begin
 Form2.Show;
end;

En plus, le fait de garder la fiche dans la mémoire de l'application permet de se servir de ses champs pour modifier les valeurs liées au volume... comme ça, elle apparaissent directement avec les bonnes valeurs quand on fait un Show. C'est pas beau, mais qu'est-ce que c'est simple !

[ero-sennin]

Salut CapJack,

J'ai testé ton code mais rien n'y fait, elle est tenace cette fenêtre
Et moi qui pensé que c'était simple, là c'est plus prise de tête qu'autre chose!

[ero-sennin]

Re,

J'ai trouver la solution à mon problème, j'ai fait ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TFPrincipale.TrayIconClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    //FVolume:=TFVolume.Create(Self);
    FVolume.Left:=X-(FVolume.Width div 2);
    FVolume.Top:=Y-FVolume.Height-HauteurBarre;
    FVolume.Show;
    SetForegroundWindow(FVolume.Handle);
  end;
end;
 
procedure TFPrincipale.ApplicationEvents1Deactivate(Sender: TObject);
begin
  FVolume.Hide;
end;

Je ne crée donc plus la Form mais je ne fais que la cacher ...

C'est en lisant l'aide de Delphi que je suis passé par là ... :

Utilisez OnDeactivate pour effectuer des actions spécifiques quand la fiche cesse d'être la fiche active au profit d'une autre fiche de l'application.Si l'activation passe àune autre application,cet événement n'est pas déclenché.Pour déterminer si une autre application devient active,utilisez l'événement OnDeactivate de l'objet TApplication.

Voilà, et merci à ceux qui ont suffit ce post

PS: Debut le début Sjrd avait donné la réponse, mais c'était au niveau de l'application et non de la form

[ShaiLeTroll]

J'ai déjà un truc similaire, mais l'application restait active ... je suis passé par TrackMouseEvent (API Windows) qui permet d'envoyer un message quand la souris "sort" ou se déplace trop longtemps en dehors d'une fenêtre ... bon après il faut jouer avec ControlAtPos/Parent/Recursivité car cela se déclenche même si l'on reste dans sa fenêtre mais que l'on survole un Memo par exemple ... si un timer, qui test régulièrement GetForegroundWindow

Ensuite, ton systray semble étrange, dans mes applis en Notify, j'ai une fenêtre avec un popup et le clic sur le popup appel tel ou tel fenêtre en show, ... si une fenêtre existe déjà, je fais un BringToFront sinon j'affiche le popup pour demander quelles actions faire ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TFrm_PopupTask.TaskBarMessage(var Msg: TMessage);
var
   coordonnes_souris :TPoint;
begin
     if (Msg.LParam = WM_RBUTTONDOWN) then begin
        GetCursorPos(coordonnes_souris);
        SetForegroundWindow(Handle);
        IconPopup.Popup(coordonnes_souris.x, coordonnes_souris.y);
        // IconPopup  est le popup lors du clic droit (WM_RBUTTONDOWN) sur la petite icone
     end else begin
         if (Msg.LParam=WM_LBUTTONDOWN) then begin
            // AutreForm est la fiche visualiser si on clique (gauche) sur la petite icone
            if Assigned(FrmVisualBeep) then begin
               Application.BringToFront();
               FrmVisualBeep.BringToFront();
            end;
            if Assigned(FrmDDTest) then begin
               Application.BringToFront();
               FrmDDTest.BringToFront();
            end;
            if not Assigned(FrmVisualBeep) and not Assigned(FrmDDTest) then begin
               GetCursorPos(coordonnes_souris);
               SetForegroundWindow(Handle);
               IconPopup.Popup(coordonnes_souris.x, coordonnes_souris.y);
            end;
         end;
     end;
 
end;

[ero-sennin]

Salut ShaiLeTroll,

Merci pour ce bout de code, je le garde, on ne sait jamais.

En ce qui concerne le timer qui test régulièrement GetForegroundWindow, je l'avais fait aussi, mais j'ai pu m'en passer .

Sinon, pour l'histoire du trayicon, je pense que tu as mal interprété mon besoin ... (ou c'est moi qui ai mal compris )

Mon trayicon me permet de faire 3 actions possibles:

• un double clic (bouton gauche) pour restaurer mon application
• un simple gauche pour afficher ma form pour gérer le volume
• un simple clic droit pour afficher un popup qui me permettra de faire diverses actions

Voilà

[ShaiLeTroll]

Oui, j'ai relu, par la suite, effectivement, j'ai vu que j'avais pas tout compris, mais j'avoue que sans cette dernière intervention je n'avais pas réalisé que tu voulais faire comme le Volume de Windows ^_^, c'est effectivement l'une des rares fenêtres de tray qui n'a pas de bouton fermer ... mais il me semble que le controle du volume de win, libère sa fenêtre, je n'en trouve pas la trace dans mes différents programmes qui liste tous les objets en cours ... le hide va laisser trainer la petite fenêtre en mémoire ...