Dialogs

[jorgegetafe]

Hola, me gustaría un tutorial o alguien que me comente como se utilizan en un form los dialogs (opendialog, savedialog... etc etc) Muchas gracias.

[[maeyanes]]

En realidad su uso es sencillo... por ejemplo, un OpenDialog creado en tiempo de ejecución:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  AFileName: string;

begin
  with TOpenDialog.Create(nil) do
    try
      // Que filtros queremos usar
      Filter := 'Archivos de texto|*.txt|Secuencias SQL|*.sql';
      // El título de la ventana
      Title := 'Abrir archivo';
      // La extención predeterminada del archivo
      DefaultExt := '.txt';
      // El directorio que se va a mostrar cuando invoques al diálogo
      InitialDir := 'C:\Archivos de programa';
      // Llamamos al diálogo y obtenemos el nombre del archivo seleccionado:
      if Execute then
      begin
        AFileName := FileName
        // Hago lo que quiero con el nombre del archivo:
        if FileExists(AFileName) then
          with TStringList.Create do
            try
              LoadFromFile(AFileName)
            finally
              Free
            end
      end
    finally
      Free
    end
end;

Ya en tiempo de diseño, puedes establecer algunas otras propiedades más...

Para más información, consulta la ayuda de Delphi...



Saludos...

[jorgegetafe]

Muchas gracias, pero es que añado ese boton y en tiempo de ejecución no me sale :-(

[[maeyanes]]

A ver...

Si explicas mejor cual es tu problema nos ayudarías a ayudarte...


Saludos...

[jorgegetafe]

Lo siento, es que estoy empezando y no tengo ni idea de nada, yo lo que se hacer es programar para "console aplication" y estoy empezando ahora con esto de los botones.

Quiero creear en una toolbar un boton, que haga las funciones del savedialogs y con su apariencia (es decir que tenga el dibujito del disquete) que no se hacerlo.

Lo que he hecho hasta ahora es poner un savedialogs, pero dicho boton, en tiempo de ejecucion no sale, no aparece, es como si no lo hubiese puesto.

Espero haberme aclarado. Muchas gracias por tu paciencia.

[[maeyanes]]

Es que lo que pusiste en la forma es un componente no visual...

En tiempo de diseño se muestra como un botón.. pero en tiempo de ejecución ya no aparece, solo tienes la referencia a memoria en una variable...

Lo que tienes que hacer es poner un botón en la toolbar (TSpeedBtn por ejemplo) y en su evento OnClick pones algo como:

Código Delphi [-]
procedure TForm1.SpeedBtn1Click(Sender: TObject);
begin
  with SaveDialog1 do
    if Execute then
    begin
      // Guardas el texto de un TMemo en un archivo de texto, por ejemplo:
      Memo1.Lines.SaveToFile(FileName)
    end
end;

Espero te aclare las cosas...


Saludos...