Difference between revisions of "Howto Use TOpenDialog/fr"
From Lazarus wiki
Jump to navigationJump to searchPaulatreides (talk | contribs) |
Paulatreides (talk | contribs) |
||
Line 8: | Line 8: | ||
2. Dans votre code écrire quelque chose similaire à: | 2. Dans votre code écrire quelque chose similaire à: | ||
− | < | + | <delphi> |
var filename : string; | var filename : string; | ||
Line 16: | Line 16: | ||
ShowMessage(filename); | ShowMessage(filename); | ||
end; | end; | ||
− | </ | + | </delphi> |
La methode [[doc:lcl/dialogs/tcommondialog.execute.html | Execute]] montre la boite de dialogue d'ouverture de fichiers. Il renvoie vrai quand l'utilisateur a sélectionné un fichier, faux quand l'utilisateur a échoué. | La methode [[doc:lcl/dialogs/tcommondialog.execute.html | Execute]] montre la boite de dialogue d'ouverture de fichiers. Il renvoie vrai quand l'utilisateur a sélectionné un fichier, faux quand l'utilisateur a échoué. | ||
La propriété [[doc:lcl/dialogs/tfiledialog.filename.html | Filename]] renvoie le nom de fichier complet incluant l'unité de disque et le chemin. | La propriété [[doc:lcl/dialogs/tfiledialog.filename.html | Filename]] renvoie le nom de fichier complet incluant l'unité de disque et le chemin. |
Revision as of 18:20, 7 July 2007
│
Deutsch (de) │
English (en) │
español (es) │
suomi (fi) │
français (fr) │
日本語 (ja) │
polski (pl) │
русский (ru) │
slovenčina (sk) │
Directive simple et courte :
1. Placer le gadget OpenDialog sur votre fiche (n'importe où, puisqu'il sera pas visible).
(C'est le dialogue le plus à gauche sous dialogue)
2. Dans votre code écrire quelque chose similaire à:
<delphi>
var filename : string;
if OpenDialog1.Execute then begin filename := OpenDialog1.Filename; ShowMessage(filename); end;
</delphi>
La methode Execute montre la boite de dialogue d'ouverture de fichiers. Il renvoie vrai quand l'utilisateur a sélectionné un fichier, faux quand l'utilisateur a échoué.
La propriété Filename renvoie le nom de fichier complet incluant l'unité de disque et le chemin.