Como Poner Imagen En El Formulario

[ecfisa]

Hola dauryakatimi2.

Básicamente con un componente TImage.

Te pongo un ejemplo muy simple que te permite recorrer tu disco y visualizar imágenes al hacer doble click sobre el nombre del archivo.

Componentes:
.TDirectoryListBox (Paleta Win 3.1)
.TFileListBox (Paleta Win 3.1)
.TImage (Paleta Additional)

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
}

#include <jpeg.hpp>

void __fastcall TForm1::FormShow(TObject *Sender)
{
 DirectoryListBox1->Align = alLeft;
 FileListBox1->Align = alLeft;
 Image1->Align = alClient;
 DirectoryListBox1->Directory = "C:\\";
 FileListBox1->Mask = "*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.vmf";
 Image1->Stretch = TRUE;
}

void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender)
{
  FileListBox1->Directory = DirectoryListBox1->Directory;
}

void __fastcall TForm1::FileListBox1DblClick(TObject *Sender)
{
  /* Aca se carga la imagen en el TImage */
  Image1->Picture->LoadFromFile(FileListBox1->FileName);
}

Un saludo.