Info à propos de : JvSelectDirectory (JVCL)

Version imprimable

J'exécute ce petit code:
Code:

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 ?:cry:

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

17/02/2008, 20h09
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é.

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

Code:

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;

18/02/2008, 01h09
Duan

Ca marche

Merci beaucoup, je vais approfondir cela...8O
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 ?:aie:

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:king::king:

Duan:yaisse2: