Difference between revisions of "Howto Use TSaveDialog/es"

From Lazarus wiki
Jump to navigationJump to search
Line 15: Line 15:
  
 
[[Image:tmemo.png]]
 
[[Image:tmemo.png]]
 
  
 
3. Añadir un button en el formulario.
 
3. Añadir un button en el formulario.
Line 33: Line 32:
 
</delphi>
 
</delphi>
  
El méotodo [[doc:lcl/dialogs/tcommondialog.execute.html | Execute]] muestra el díalogo para salvar ficheros. Retorna [[True|true]] cuando el usuario selecciona un fichero, y [[False|false]] cuando el usuario aborta la operación.
+
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 aborta la operación.
  
 
La propiedad [[doc:lcl/dialogs/tfiledialog.filename.html | Filename]] retorna el nombre de fichero completo incluyendo la unidad y la ubicación.
 
La propiedad [[doc:lcl/dialogs/tfiledialog.filename.html | Filename]] retorna el nombre de fichero completo incluyendo la unidad y la ubicación.

Revision as of 11:49, 22 November 2009

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

Como utilizar el diálogo TSaveDialog

tsavedialog.png

Guía simple:

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

 Component Palette Dialogs.png
 (Es el segundo elemento a la izquierda bajo  Solapa Diálogos)

2. Añadir un memo en el formulario.

tmemo.png

3. Añadir un button en el formulario.

tbutton.png

El Object Inspector mostrará las propiedades del objeto Button1. Cambia la propiedad llamada 'Caption', con el valor mostrado 'Button1' para salvar 'Save'. Haz click en la solapa Eventos del Inspector de Objetos. Selecciona el cuadro situado a la derecha de OnClick: aparece un pequeño cuadro con tres puntos (...elipsis). Haz Click en ella, de modo que automáticamente se abrirá el editor de código fuente y el cursor se ubicará en un trozo de código de comienzo. Completando código:

<delphi>

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

</delphi>

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

La propiedad Filename retorna el nombre de fichero completo incluyendo la unidad y la ubicación.

Ver además