Discussion :

[byc001]

Bonjour à Tous et à toutes

Débutant novice, je voudrais commencer a développer sous Delphi 7. et je bloque déjà! je sollicite donc votre aide, S'il Vous Plait.

Je voudrais que dans mon "mainmenu1", en cliquant sur la ligne que j'ai appelé "définir le répertoire par défaut", un utilisateur lambda voit une fenètre ou mieux encore une extension de la "Form" (ou une nouvelle form accolée à la 1ère) afin de renseigner un chemin de répertoire et que cela soit enregistré pour toute ouverture suivante du projet. je désire aussi la réduction de la "Form" (ou la fermeture de la 2ème Form ouverte) en Validant le chemin du répertoire.

je voudrais aussi que dans 2 "combobox", le résultat soit l'affichage des sous-répertoires dans le 1er Combobox et l'affichage des fichiers correspondant à chaque sous-répertoire dans le 2ème combobox.

Si je peux me permettre, je désire aller plus loin. Les fichiers sont de la forme XXXX-nomdufichier.doc où XXXX représente un nombre à 4 chiffres. Je voudrais rajouter 2 lignes dans le mainmenu1 : "trier par nom de fichier" et "trier par nombre croissant" avec 1 tilde qui s'affiche devant l'option choisie. L'affichage du "combobox" 2 prendra en compte cette demande.

J'espère avoir été clair dans mes demandes.
Je vous remercie beaucoup par avance de l'attention que vous voudrez bien porter à cette requète

Salutations, bonne journée

byc001

[ShaiLeTroll]

TOpenDialog ou SelectDirectory
FindFirst, FindNext, FindClose ... ou TDirectoryListBox

Pour la clarté de tes questions, ça viendra avec le temps ...
Tu pourrais nous fournir tes tentatives de code que tu voulais que l'on te corrige, car c'est un peu vague toutes ces questions !

[jbdel]

Pour réagir au clic dans le mainmenu je vous suggère :

Code :

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

1
2
3
4
5
6
7
8
 
var CheminDefaut:String;
 
procedure TForm1.ChoixCheminDefautClick(Sender: TObject);
begin
  CheminDefaut:=InputBox('Choix du chemin par défaut','Chemin',ExtractFilePath(Paramstr(0)));
  Label1.Caption:=CheminDefaut;
end;

InputBox affiche une nouvelle fenêtre qui affiche comme chemin proposé celui de l'application (Extract...)
Ce que l'utilisateur tape à la place sera mémorisé dans la variable CheminDefaut (et affiché dans Label1 pour vérification, pas indispensable).

Si ceci est bien le début d'une réponse à vos questions, je poursuivrai...