Howto Use TSaveDialog/fr

From Lazarus wiki
Jump to navigationJump to search

Deutsch (de) English (en) español (es) suomi (fi) français (fr) 日本語 (ja) polski (pl) русский (ru) slovenčina (sk)

Comment utiliser TSaveDialog

tsavedialog.png

Guide rapide :

1. Placer un composant SaveDialog sur une fiche (peu importe où puisqu'il ne sera pas visible).

 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.

tmemo.png


3. Ajouter un bouton sur la fiche.

tbutton.png

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