Difference between revisions of "Howto Use TSaveDialog/es"

From Lazarus wiki
m
m (Text replace - "delphi>" to "syntaxhighlight>")
Line 28: Line 28:
 
Completa el código:  
 
Completa el código:  
  
<delphi> procedure TForm1.GuardarClick( Sender: TObject );
+
<syntaxhighlight> procedure TForm1.GuardarClick( Sender: TObject );
 
  begin
 
  begin
 
   if SaveDialog1.Execute then
 
   if SaveDialog1.Execute then
 
     Memo1.Lines.SaveToFile( SaveDialog1.Filename );
 
     Memo1.Lines.SaveToFile( SaveDialog1.Filename );
  end;</delphi>
+
  end;</syntaxhighlight>
  
 
&nbsp;&nbsp;&nbsp;El método [[doc:lcl/dialogs/tcommondialog.execute.html | Execute]] muestra el diálogo para salvar ficheros. Retorna [[True|true]] cuando el usuario selecciona un fichero, y [[False|false]] cuando el usuario cancela la operación.
 
&nbsp;&nbsp;&nbsp;El método [[doc:lcl/dialogs/tcommondialog.execute.html | Execute]] muestra el diálogo para salvar ficheros. Retorna [[True|true]] cuando el usuario selecciona un fichero, y [[False|false]] cuando el usuario cancela la operación.

Revision as of 15:31, 24 March 2012

Template:MenuTranslate

   Como utilizar el diálogo TSaveDialog

tsavedialog.png

   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).

Lazarus Paleta Dialogos.png
 (Es el segundo elemento a la izquierda bajo  Pestaña Dialogs)

   2. Añadir un memo en el formulario.

tmemo.png

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

tbutton.png

   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:

 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