Discussion :

[Duan]

J'exécute ce petit code:

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
 
procedure TForm1.Button1Click(Sender: TObject);
  var
    chemin:String;
  begin
    JvSelectDirectory1.Execute;
    Chemin:=JvSelectDirectory1.Directory;
  end;
 
procedure TForm1.JvSelectDirectory1Show(Sender: TObject);
  begin
    Showmessage('Ouverture');
  end;
 
procedure TForm1.JvSelectDirectory1Close(Sender: TObject);
  begin
    Showmessage('Fermeture');
  end;

et rien ne se passe dans les OnShow et OnClose de ce composant ?

Le Chemin est bien pris en compte mais si je veux insérer un code dans le onClose, plus précisémment quand l'utilisateur a pressé le OK du composant, rien ne se passe; le code ne devrait pas s'exécuter si celui-ci presse le bouton Annuler

Merci

Duan

[user 56gt8]

Si tu cliques sur annuler JvSelectDirectory1.Directory est égal à '' (string vide).
Du coup tu peux faire ton code selon :

if JvSelectDirectory1.Directory = '' then // annuler a été cliqué.
if JvSelectDirectory1.Directory <> '' then // ok a été cliqué.

[MedGIR]

Normalement c'est de la manière suivante que doivent être utiliser les boites de dialogue:

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
    chemin:String;
 begin
    if JvSelectDirectory1.Execute then
    begin
      //Ici le code de traitement suite à la validation du répertoire
      Chemin:=JvSelectDirectory1.Directory;
    end
    else
    begin
      //Ici le code de traitement suite à l'annulation de la sélection du répertoire
    end;
 
 end;

[Duan]

Merci beaucoup, je vais approfondir cela...
Ce que je ne comprend toujours pas c'est que mes 2 showmessages ne sont pas exécutés à l'entrée et à la sortie de ce composant. Si je met ces 2 mêmes codes dans le onShow et onClose d'une fiche par exemple, ceux-ci sont exécutés ?

Duan

Je met ce post comme "Résolu" car je peux effectivement inscrire mon code comme me l'a suggéré MedGIR.

Encore merci à vous deux

Duan