duda, se puede? jeje

[jachguate]

Hola Otei.

En primer lugar, bienvenido(a) al clubdelphi.

Te invito a leer la guia de estilo.

Allí verás por que un título como el que has puesto a este post resulta inaceptable en estos foros. Espero que tomes en cuenta esta llamada de atención amistosa antes de abrir un nuevo hilo y te tomes el tiempo en buscar un título y un planteamiento adecuado para tus situaciones, pues eso va en beneficio tuyo, en primer lugar, y en beneficio de la comunidad que compone el clubdelphi.

Hasta luego.

[[Gunman]]

1.- Bienvenid@!
2.- Busca en los foros.
3.- Elige mejor los títulos.

[dec]

Hola,

Código Delphi [-]
uses
  Dialogs, ExtDlgs;

function DialogoParaElegirUnaImagen : string;
var
  dlg: TOpenPictureDialog;
begin
  // Creamos un "TOpenPictureDialog".
  //
  dlg := TOpenPictureDialog.Create(nil);
  //
  with dlg do begin
    // Cambiamos algunas propiedades
    // del "TOpenPictureDialog", véase
    // la ayuda de este componente para
    // saber de sus propiedades y tal.
    //
    InitialDir := 'C:\';
    DefaultExt := 'jpg';
    Options := [ofFileMustExist];
    Title := 'Elige una imagen.';
    //
    try
      // Mostramos el diálogo al usuario...
      //
      if Execute then
        // y, si el usuario elige una imagen...
        Result := dlg.FileName;
    //
    // Y, finalmente...
    //
    finally
      dlg.Free; // Ciao! "TOpenPictureDialog".
    end;
  end; // Final del "with dlg do begin..."
end;

// Ejemplo de llamada a la función anterior
//
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage( DialogoParaElegirUnaImagen );
end;

[Otei]

David eres dios!! jajajaajja muchisimas gracias