UN SELECTDIRECTORY QUI SE PLACE AU BON ENDROIT
cs_Jean_Jean
Messages postés
615
Date d'inscription
dimanche 13 août 2006
Statut
Membre
Dernière intervention
13 décembre 2018
-
9 avril 2010 à 15:45
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 11 avril 2010 à 15:13
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 11 avril 2010 à 15:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/51576-un-selectdirectory-qui-se-place-au-bon-endroit
https://codes-sources.commentcamarche.net/source/51576-un-selectdirectory-qui-se-place-au-bon-endroit
11 avril 2010 à 15:13
cette portion de code, qui replace le dialogue au centre de la fiche, fait partie intégrante des sources, au moins, depuis TurboDelphi 2006.
Pour les versions de Delphi personnelles ... ben depuis qu'Embarcadero a repris les commandes il n'existe plus de versions gratuites, que des versions d'évaluations d'1 mois.
Alors oui je sais on peut encore télécharger à certains endroits un TurboDelphi mais l'enregistrement de ces produits n'est plus assuré par Embarcadero.
ps:
TuboDelphi Explorer ne m'a jamais empêché de créer et d'utiliser des composants perso et apporte bien plus qu'un D7
11 avril 2010 à 13:22
@Dom: "c'est les "1 mois" qui font problème ?" : eh oui...
A+
Thierry
11 avril 2010 à 13:04
Au dela de Delphi7 ces constantes ont été ajoutées.
Le code de Thierry utilise BIF_NEWDIALOGSTYLE, et ne se compile donc pas avec delphi6.
C'est pourquoi j'ai effectué une recherche pour connaitre leur valeur et tester si une simple déclaration suffisait, et la réponse est oui.
extrait en VB (désolé):
'Use the new dialog layout with the ability to resize: SHELL 5.0 or later only!
Private Const BIF_NEWDIALOGSTYLE As Long = &H40
Private Const BIF_USENEWUI As Long = (BIF_NEWDIALOGSTYLE Or BIF_EDITBOX)
Pour voir la signification de ces constantes, voir ici par exemple:
http://vbnet.mvps.org/index.html?code/browse/browsenetwork.htm
Pour Thierry, le score de 42% est celui d'un sondage sur les développeurs professionnel uniquement. Si l'on ajoute les non-professionnels, ce score doit surement être plus élevé.
Le lien pour avoir la dernière version gratuite (limitée à un mois)
https://downloads.embarcadero.com/free/delphi
Mais je suis sur que tu connais... c'est les "1 mois" qui font problème ?
Encore merci pour ce code.
A+
Dom
11 avril 2010 à 12:54
www.delphinautes.fr rubrique sondage pour voir les chiffres.
11 avril 2010 à 12:51
Seul hic tu ne peux installer de composants dans cette version , pour le reste c'est ok et complet.
http://delphi.developpez.com/telecharger/gratuit/turbo-delphi/
Cordialement.
Christophe
11 avril 2010 à 10:12
Mais tu m'étonnes avec le faible pourcentage de ceux qui utilisent encore Delphi7. Si je ne me trompe pas, après Delphi2005, Delphi n'a plus fait de versions perso gratuites (si je me trompe, je suis preneur pour un lien !).
Cordialement.
Thierry
11 avril 2010 à 08:05
Donc pour moi ça ne change pas;
Précision qui servira pour d'autres.
Cordialement!
Jean_Jean
10 avril 2010 à 22:58
Pour les 42% qui ont encore delphi7 (ou moins), ajouter ces constantes oubliées dans ShlObj :
const
BIF_NEWDIALOGSTYLE=$40;
BIF_NONEWFOLDERBUTTON=$200;
voir aussi ici :
http://www.cryer.co.uk/brian/delphi/howto_browseforfolder.htm
Amicalement
Dom
9 avril 2010 à 15:55
Heureux de voir que ce code t'est utile.
9 avril 2010 à 15:45
Voilà qui m'est bien utile! qu'elle bonne idée tu as eu là!
Pour ceux que ça intéresse, voici le test de ta fonction :
procedure TForm1.Button1Click(Sender: TObject);
var Rep : string;
R : TRect;
begin
R:= Rect(Left, Top, Left + Width, Top + Height);
if SelectDirectoryEx('Saisissez votre répertoire d''installation', Rep,R,True) then
begin
showmessage('Traitement');
end;
end;