Sélectionner un fichier ou un dossier dans la même boîte de dialogue

Sélectionner un fichier ou un dossier dans la même boîte de dialogue - Delphi/Pascal - Programmation

Marsh Posté le 27-08-2008 à 22:52:43    

Bonjour,
 
Je cherche à afficher une boîte de dialogue qui puisse permettre de choisir soit un fichier, soit un dossier. Quelque chose dans le genre de la boîte de raccourcis Windows :
 
http://www.3dna.net/support/help/images/changelink.jpg
 
Est-ce que c'est faisable en Delphi, et si oui quelle fonction appeler ?
 
Laurent

Reply

Marsh Posté le 27-08-2008 à 22:52:43   

Reply

Marsh Posté le 28-08-2008 à 13:46:47    

Onglet dialogue : tu as des composants de ce genre.  
OpenDialog pour ouvrir, SaveDialog pour enregistrer.
Pour les utiliser tu places simplement un des compos sur ton formulaire. Le nom du fichier/dir selectionné après avoir cliqué sur OK est stocké dans la propriété FileName du Dialog.
Généralement on les utilise de la façon suivante :
 
if OpenDialog1.Execute then toto.loadfromfile(OpenDialog1.FileName);
 
 
 

Reply

Marsh Posté le 28-08-2008 à 20:42:07    

Merci, mais tu fais comment pour sélectionner un dossier avec TOpenDialog ? J'ai essayé un peu toutes les options mais je n'ai rien trouvé. Si tu as une idée...


Message édité par konglihong le 28-08-2008 à 21:42:29
Reply

Marsh Posté le 29-08-2008 à 10:23:32    

pour les dossiers:

Code :
  1. function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
  2. function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string; Options: TSelectDirExtOpts = [sdNewUI]; Parent: TWinControl = nil): Boolean; overload;


 
exemple:

Code :
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   ActualDir: String;
  4. begin
  5.   ActualDir := 'C:\';
  6.   if SelectDirectory('blablablaaaaaa', '', ActualDir) then
  7.   begin
  8.     showmessage('dossier selectionné: ' + ActualDir);
  9.   end;
  10. end;


Message édité par ouiouioui10 le 29-08-2008 à 10:30:14
Reply

Marsh Posté le 29-08-2008 à 12:45:09    

Oui mais ce que je cherche à faire c'est permettre de sélectionner un fichier et/ou un dossier depuis la même boite de dialogue. C'est à dire comme dans la capture d'écran ci-dessus. Il me semble l'avoir fait il y a quelques années mais je ne me rappelle plus comment.
 
Je suppose que s'il n'y a pas de componsant pour le faire ça doit être une fonction de l'API Win32, mais je ne trouve pas. Si quelqu'un pouvait me pointer dans la bonne direction...

Reply

Marsh Posté le 29-08-2008 à 13:42:07    

Ah ué on ne peut pas select un dossier avec l'opendialog... J'ai pas de réponse désolé :D

Reply

Marsh Posté le 30-08-2008 à 01:11:26    

Pas de soucis, j'ai l'impression que c'est pas très commun comme boite de dialogue :D J'ai juste trouvé cet exemple mais c'est en C :(  
 
Sinon est-ce que c'est faisable de customiser ces boites pour les faire accepter des fichiers ou dossiers ? Quelqu'un a une idée ?

Reply

Marsh Posté le 01-09-2008 à 16:37:42    

Pas d'autres suggestions ? Tout le monde est passé à .NET ou quoi ? :D

Reply

Marsh Posté le 01-09-2008 à 17:34:59    

J'en aurais bien une, tu crées toi meme un formulaire à ton projet qui va servir de fenetre modale comme un opendialog. Dedans tu rajoutes,
DirectoryListBox, FileListBox, DriveComboBox. Tu les relies par les bonnes propriétés qui font que quand tu changes de drive, ça update ton tree..
Tu mets deux boutons et tu geres les évènements. Genre le user qui clique deux fois sur un répertoire=> return du rep. Quand la personne clique sur ok, tu regardes ce qui est select dans les boites. Si un fichier est select tu retournes le fichier sinon le rep. Tu dois pouvoir gerer aussi qui si une personne clique sur un fichier, ça deselect le dir sélectionné et si la personne change de rep, ça deselectionne les fichier. Sur l'appui de ok, tu regardes ce qui est selectionné.
 
http://img524.imageshack.us/img524/9244/graphique1rp0.jpg

Reply

Marsh Posté le 02-09-2008 à 17:56:02    

Merci je vais essayer ça. J'aurais préféré éviter de le faire "à la main", mais ça n'a pas l'air trop compliqué en utilisant les composants de Delphi.

Reply

Marsh Posté le 02-09-2008 à 17:56:02   

Reply

Marsh Posté le 04-09-2008 à 11:36:33    

j'ai trouvé sa: http://www.commentcamarche.net/tel [...] escription
mais je sais pas si il y a l'option que tu veux
 

Reply

Marsh Posté le 06-09-2008 à 00:12:09    

Finalement j'ai opté pour la solution à rengzehn, merci encore :jap: Les TDriveComboBox, TDirectoryListBox et TFileListBox simplifient grandement les choses (par contre les icones style Window 3.1 sont horribles :sweat: )
 
Voilà le code complet au-cas-où ça intéresse quelqu'un :
 
 
SelectFolderOrFileUnit.pas :
 

Code :
  1. unit SelectFolderOrFileUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, FileCtrl;
  9. type
  10.   TSelectFolderOrFileForm = class(TForm)
  11.     DirectoryListBox1: TDirectoryListBox;
  12.     FileListBox1: TFileListBox;
  13.     DriveComboBox1: TDriveComboBox;
  14.     cancelButton: TButton;
  15.     selectFileButton: TButton;
  16.     selectFolderButton: TButton;
  17.     procedure DriveComboBox1Change(Sender: TObject);
  18.     procedure DirectoryListBox1Change(Sender: TObject);
  19.     procedure cancelButtonClick(Sender: TObject);
  20.     procedure selectFolderButtonClick(Sender: TObject);
  21.     procedure selectFileButtonClick(Sender: TObject);
  22.     procedure FileListBox1Change(Sender: TObject);
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure FileListBox1DblClick(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.     procedure UpdateAll();
  29.   public
  30.     { Public declarations }
  31.     FilePath: String;
  32.     procedure ConfirmForm();
  33.     procedure CancelForm();
  35.   end;
  37. var
  38.   SelectFolderOrFileForm: TSelectFolderOrFileForm;
  40. implementation
  42. {$R *.dfm}
  44. procedure TSelectFolderOrFileForm.cancelButtonClick(Sender: TObject);
  45. begin
  46.   CancelForm();
  47. end;
  49. procedure TSelectFolderOrFileForm.selectFileButtonClick(Sender: TObject);
  50. begin
  51.   FilePath := FileListBox1.FileName;
  52.   ConfirmForm();
  53. end;
  55. procedure TSelectFolderOrFileForm.selectFolderButtonClick(Sender: TObject);
  56. begin
  57.   FilePath := DirectoryListBox1.Directory;
  58.   ConfirmForm();
  59. end;
  61. procedure TSelectFolderOrFileForm.CancelForm;
  62. begin
  63.   ModalResult := mrCancel;
  64. end;
  66. procedure TSelectFolderOrFileForm.ConfirmForm;
  67. begin
  68.   ModalResult := mrOK;
  69. end;
  71. procedure TSelectFolderOrFileForm.DirectoryListBox1Change(Sender: TObject);
  72. begin
  73.   UpdateAll();
  74. end;
  76. procedure TSelectFolderOrFileForm.DriveComboBox1Change(Sender: TObject);
  77. begin
  78.   UpdateAll();
  79. end;
  81. procedure TSelectFolderOrFileForm.FileListBox1Change(Sender: TObject);
  82. begin
  83.   UpdateAll();
  84. end;
  86. procedure TSelectFolderOrFileForm.FileListBox1DblClick(Sender: TObject);
  87. begin
  88.   FilePath := FileListBox1.FileName;
  89.   ConfirmForm();
  90. end;
  92. procedure TSelectFolderOrFileForm.FormCreate(Sender: TObject);
  93. begin
  94.   UpdateAll();
  95. end;
  97. procedure TSelectFolderOrFileForm.UpdateAll;
  98. begin
  99.   try
  100.     DirectoryListBox1.Drive := DriveComboBox1.Drive;
  101.     FileListBox1.Directory := DirectoryListBox1.Directory;
  102.   except
  103.     on e: Exception do ;
  104.   end;
  106.   selectFolderButton.Enabled := DirectoryListBox1.Directory <> '';
  107.   selectFileButton.Enabled := FileListBox1.FileName <> '';
  108. end;
  110. end.


 
SelectFolderOrFileUnit.dfm :
 

Code :
  1. object SelectFolderOrFileForm: TSelectFolderOrFileForm
  2.   Left = 0
  3.   Top = 0
  4.   BorderStyle = bsDialog
  5.   Caption = 'SelectFolderOrFileForm'
  6.   ClientHeight = 272
  7.   ClientWidth = 451
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'Tahoma'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object DirectoryListBox1: TDirectoryListBox
  19.     Left = 16
  20.     Top = 40
  21.     Width = 209
  22.     Height = 177
  23.     ItemHeight = 16
  24.     TabOrder = 0
  25.     OnChange = DirectoryListBox1Change
  26.   end
  27.   object FileListBox1: TFileListBox
  28.     Left = 231
  29.     Top = 16
  30.     Width = 202
  31.     Height = 201
  32.     ItemHeight = 16
  33.     ShowGlyphs = True
  34.     TabOrder = 1
  35.     OnChange = FileListBox1Change
  36.     OnDblClick = FileListBox1DblClick
  37.   end
  38.   object DriveComboBox1: TDriveComboBox
  39.     Left = 16
  40.     Top = 15
  41.     Width = 209
  42.     Height = 19
  43.     TabOrder = 2
  44.     OnChange = DriveComboBox1Change
  45.   end
  46.   object cancelButton: TButton
  47.     Left = 333
  48.     Top = 232
  49.     Width = 100
  50.     Height = 25
  51.     Caption = 'Cancel'
  52.     TabOrder = 3
  53.     OnClick = cancelButtonClick
  54.   end
  55.   object selectFileButton: TButton
  56.     Left = 229
  58.     Top = 232
  59.     Width = 100
  60.     Height = 25
  61.     Caption = 'Select file'
  62.     TabOrder = 4
  63.     OnClick = selectFileButtonClick
  64.   end
  65.   object selectFolderButton: TButton
  66.     Left = 124
  67.     Top = 232
  68.     Width = 100
  69.     Height = 25
  70.     Caption = 'Select folder'
  71.     TabOrder = 5
  72.     OnClick = selectFolderButtonClick
  73.   end
  74. end


Message édité par laurent22300 le 06-09-2008 à 00:12:43
Reply

Marsh Posté le 10-09-2008 à 10:33:04    

Merci, rajoute [Réglé] dans le titre de ton sujet ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed