Howto Use TSaveDialog/fr
Deutsch · English · Español · Français · Polski · Slovenčina · Suomi · Русский · 日本語
== Comment utiliser TSaveDialog == 
Guide rapide :
1. Placer un composant SaveDialog sur une fiche (peu importe où puisqu'il ne sera pas visible).
Image:Component_Palette_Dialogs.png
(Il s'agit du second composant en partant de la gauche sous Dialogs tab)2. Ajouter un composant Memo sur la fiche.
3. Ajouter un bouton sur la fiche.
L'inspecteur d'objet affichera les propriétés du bouton Button1. Modifier la propriété nommée Caption : de Button1, la passer à Enregistrer. Cliquer sur le panneau Événements de l'inspecteur d'objet. Cliquer à droite de OnClick : une petite boîte comprenant trois points apparaît. Cliquer sur cette petite boîte qui conduit directement dans l'éditeur de source, plaçant au passage le curseur au début d'une portion de code ajoutée automatiquement. Compléter ainsi le code :
procedure TForm1.Button1Click( Sender: TObject );
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile( SaveDialog1.Filename );
end;La méthode Execute affichera la boîte de dialogue de choix d'un fichier. Elle retourne true quand l'utilisateur a choisi un fichier et false quand il a abandonné la procédure.
La propriété Filename retournera le nom du fichier choisi en incluant le lecteur et le chemin.
Voir aussi
From the Free Pascal wiki, page "Howto Use TSaveDialog/fr", as it stood on 2020-02-17 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.