Revision 1 of 3, by Trev on 2-17-2020. The page as it is now.

Howto Use TSaveDialog/es

Como utilizar el diálogo TSaveDialog

<figure> <img src="tsavedialog.png" title="tsavedialog.png" /> <figcaption>tsavedialog.png</figcaption> </figure>

Guía simple:

1. Colocar un componente TSaveDialog en tu formulario (en cualquier lugar del mismo, ya que en tiempo de ejecución no será visible).

(Es el segundo elemento a la izquierda bajo Pestaña Dialogs)

2. Añadir un memo en el formulario.

<figure> <img src="tmemo.png" title="tmemo.png" /> <figcaption>tmemo.png</figcaption> </figure>

3. Añadir un botón en el formulario.

<figure> <img src="tbutton.png" title="tbutton.png" /> <figcaption>tbutton.png</figcaption> </figure>

El Object Inspector mostrará las propiedades del objeto Button1.

Cambia la propiedad llamada Caption, del valor mostrado ('Button1') a 'Guardar', u otro que consideres apropiado.

Haz clic en la pestaña Eventos del Inspector de Objetos. Selecciona el rectángulo situado a la derecha de OnClick: aparece un pequeño cuadro con tres puntos (... elipsis). Haz clic en ella, automáticamente se abrirá el editor de código fuente y el cursor se ubicará en un trozo de código de comienzo, la plantilla del método de respuesta al evento.

Completa el código:

pascal

 procedure TForm1.GuardarClick( Sender: TObject );
 begin
   if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile( SaveDialog1.Filename );
 end;

El método Execute muestra el diálogo para salvar ficheros. Retorna true cuando el usuario selecciona un fichero, y false cuando el usuario cancela la operación.

La propiedad Filename retorna el nombre de fichero completo incluyendo la unidad y la ruta.

Ver además

From the Free Pascal wiki, page "Howto Use TSaveDialog/es", 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.