Ver Mensaje Individual
  #2  
Antiguo 25-09-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Te pongo un ejemplo genérico. Coloca un TButton, un TImage (pestaña Additional), un TOpenDialog (pestaña Dialogs) y el siguiente código en el evento OnClick del Button:
Código Delphi [-]
...
implementation

uses Jpeg;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenDialog1 do
  begin
    Filter := 'Archivos de imágenes | *.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf';
    if Execute then
      Image1.Picture.LoadFromFile(FileName); // aquí se carga la imágen desde disco
  end;
end;
...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita