Como Poner Imagen En El Formulario

[dauryakatimi2]

Necesito Saber Como Poner Una 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.

[dauryakatimi2]

Gracias mi Hermano me sido muy util tu respuesta

[aams01]

Hola.
Hace tiempo leei no recuerdo donde que era posible poner el fondo de imagen desde un TImage sin perder las propiedades del formulario sobre todo las KeyPress. Hoy que necesito el codigo no lo encuentro si alguien save como acerlo de antemano gracias

[aams01]

el texto era de Delphi al limite.pdf pag 23 Utilizando el canvas

para c++ seria algo asi
Componente
TImage Nombre Fondo Picture CualesQuiera.BMP

Evento FormPaint

TRect R;
R.Left = 0;
R.Top = 0;
R.Right = Fondo->Width;
R.Bottom = Fondo->Height;
Canvas->CopyRect( R, Fondo->Canvas, R );
--

Eso si