Interdire la navigation dans TOpendialog [Résolu]
furax13
- Messages postés
- 90
- Date d'inscription
- mardi 28 octobre 2003
- Dernière intervention
- 24 avril 2008
- Messages postés
- 2354
- Date d'inscription
- dimanche 5 octobre 2003
- Dernière intervention
- 18 novembre 2010
A voir également:
- Delphi topendialog
- Topendialog delphi - Meilleures réponses
- Navigateur Flash en MFC - Conseils pratiques - C / C++ / C++.NET
- Recuperer la signature du navigateur de visiteur du site - Codes sources - Visual Basic / VB.NET (ASP)
- Lancer une url dans le navigateur par défault. - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Visual Basic / VB.NET : Interdire / interrompre l'exécution de processus - CodeS SourceS - Guide
- Multi navigateur exemple de gestion des feuiles mdi - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
8 réponses
Meilleure réponse
- Messages postés
- 2354
- Date d'inscription
- dimanche 5 octobre 2003
- Dernière intervention
- 18 novembre 2010
Salut,
pose un TButton, pose un TEdit, pose un TOpendialog, déclare fNoChange: Integer;
Procedure du onClick du Button1 :
procedure TForm1.Button1Click(Sender: TObject);
begin
fNoChange := 0; // aucun changement de dossier pour le moment
if opendialog1.Execute then
begin
if // on vérifie que le chemin du fichier choisi est identique (en minuscule) a InitialDir lowercase(IncludeTrailingPathDelimiter(ExtractFilePath(opendialog1.FileName))) <> lowercase(IncludeTrailingPathDelimiter(opendialog1.InitialDir)) then
begin
MessageDlg('Merci de ne pas changer de dossier.',mtError,[mbOk],0); // message d'erreur
edit1.Clear; // vidage du edit1
end
else
edit1.Text := opendialog1.FileName; // sinon le fichier est accepté
end;
end;
pocedure du OnFolderChange du OpenDialog1 :
procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
begin
inc(fNoChange); // on augmente de 1 le nombre de changement de dossier
if fNoChange>1 then // si on a fait un changement ...
begin
MessageDlg('Merci de ne pas changer de dossier.',mtError,[mbOk],0); // message d'erreur
fNoChange := 0; // on reinitialise le nombre de changements à 0
Keybd_Event(VK_ESCAPE, 0, 0, 0); // on simule l'appui sur la touche ECHAP a la place de l'utilisateur (= ferme l'opendialog)
end;
end;
Je n'ai changé aucune options sur le openDialog1. L'utilisateur ne peux pas aller dans un autre dossier que le OpenDialog1.initialDir.
Tiens moi au courant =)
Mon site DELPHI =)
pose un TButton, pose un TEdit, pose un TOpendialog, déclare fNoChange: Integer;
Procedure du onClick du Button1 :
procedure TForm1.Button1Click(Sender: TObject);
begin
fNoChange := 0; // aucun changement de dossier pour le moment
if opendialog1.Execute then
begin
if // on vérifie que le chemin du fichier choisi est identique (en minuscule) a InitialDir lowercase(IncludeTrailingPathDelimiter(ExtractFilePath(opendialog1.FileName))) <> lowercase(IncludeTrailingPathDelimiter(opendialog1.InitialDir)) then
begin
MessageDlg('Merci de ne pas changer de dossier.',mtError,[mbOk],0); // message d'erreur
edit1.Clear; // vidage du edit1
end
else
edit1.Text := opendialog1.FileName; // sinon le fichier est accepté
end;
end;
pocedure du OnFolderChange du OpenDialog1 :
procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
begin
inc(fNoChange); // on augmente de 1 le nombre de changement de dossier
if fNoChange>1 then // si on a fait un changement ...
begin
MessageDlg('Merci de ne pas changer de dossier.',mtError,[mbOk],0); // message d'erreur
fNoChange := 0; // on reinitialise le nombre de changements à 0
Keybd_Event(VK_ESCAPE, 0, 0, 0); // on simule l'appui sur la touche ECHAP a la place de l'utilisateur (= ferme l'opendialog)
end;
end;
Je n'ai changé aucune options sur le openDialog1. L'utilisateur ne peux pas aller dans un autre dossier que le OpenDialog1.initialDir.
Tiens moi au courant =)
Mon site DELPHI =)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
97 internautes nous ont dit merci ce mois-ci
- Messages postés
- 48
- Date d'inscription
- jeudi 7 septembre 2006
- Dernière intervention
- 21 avril 2010
J'ai fait quelques essais voir si on pouvait tripatouiller le
TOpenDialog / GetOpenFileName, mais sans résultat (on a bien un
événement OnFolderChange, mais rien à dispo pour forcer le répertoire
depuis cet événement :-( )
Donc, pareil que Loda : crée une fiche (avec un TFileListBox et un
TFilterComboBox, palette Win 3.1) et instancie toi même ce dont tu as
besoin.
Je trouve tout de même "bizarre" cette idée de vouloir empêcher de
changer de répertoire : si tu laisses l'utilisateur choisir un fichier,
pourquoi le forcer à ce que ce fichier soit dans un répertoire précis ?
TOpenDialog / GetOpenFileName, mais sans résultat (on a bien un
événement OnFolderChange, mais rien à dispo pour forcer le répertoire
depuis cet événement :-( )
Donc, pareil que Loda : crée une fiche (avec un TFileListBox et un
TFilterComboBox, palette Win 3.1) et instancie toi même ce dont tu as
besoin.
Je trouve tout de même "bizarre" cette idée de vouloir empêcher de
changer de répertoire : si tu laisses l'utilisateur choisir un fichier,
pourquoi le forcer à ce que ce fichier soit dans un répertoire précis ?
- Messages postés
- 2354
- Date d'inscription
- dimanche 5 octobre 2003
- Dernière intervention
- 18 novembre 2010
- Messages postés
- 48
- Date d'inscription
- jeudi 7 septembre 2006
- Dernière intervention
- 21 avril 2010
il est très bien... sauf qu'afficher un message "z'avez pas le droit",
fermer la fenêtre et obliger l'utilisateur à recliquer sur "ouvrir",
c'est vraiment pas top d'un point de vue ergonomique.
Si c'est une appli à 2 balles ca peut suffire (mais pour une appli à 2 balles t'as rarement besoin de bloquer le répertoire).
Et quitte à aider, je préfère orienter celui qui cherche quelque chose vers une solution un minimum propre.
Bon, là, c'est vrai, y a des chances qu'il se soit endormi
fermer la fenêtre et obliger l'utilisateur à recliquer sur "ouvrir",
c'est vraiment pas top d'un point de vue ergonomique.
Si c'est une appli à 2 balles ca peut suffire (mais pour une appli à 2 balles t'as rarement besoin de bloquer le répertoire).
Et quitte à aider, je préfère orienter celui qui cherche quelque chose vers une solution un minimum propre.
Bon, là, c'est vrai, y a des chances qu'il se soit endormi
- Messages postés
- 48
- Date d'inscription
- jeudi 7 septembre 2006
- Dernière intervention
- 21 avril 2010
Le code de JulioDelphi n'empêche pas l'utilisateur de changer de
répertoire; il le détecte simplement (et c'est pour ça qu'il ferme la
fenêtre)
Mais autoriser l'utilisateur à sélectionner n'importe quel répertoire
pour lui dire après coup qu'il n'a pas le droit, je maintiens que ce
n'est pas viable en terme d'ergonomie, et que ça s'apparente plus à de
la "bidouille".
Après, tout dépend l'utilisation que tu comptes en faire et le niveau
de professionalisme que tu souhaites donner à ton application.
répertoire; il le détecte simplement (et c'est pour ça qu'il ferme la
fenêtre)
Mais autoriser l'utilisateur à sélectionner n'importe quel répertoire
pour lui dire après coup qu'il n'a pas le droit, je maintiens que ce
n'est pas viable en terme d'ergonomie, et que ça s'apparente plus à de
la "bidouille".
Après, tout dépend l'utilisation que tu comptes en faire et le niveau
de professionalisme que tu souhaites donner à ton application.
- Messages postés
- 2354
- Date d'inscription
- dimanche 5 octobre 2003
- Dernière intervention
- 18 novembre 2010
Tu peux proposer un code yopai_v ?
Mon site DELPHI =)
Mon site DELPHI =)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.