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 ...