Foros Club Delphi - Como Poner Imagen En El Formulario

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Como Poner Imagen En El Formulario (https://www.clubdelphi.com/foros/showthread.php?t=73356)

Como Poner Imagen En El Formulario

Necesito Saber Como Poner Una Imagen En El Formulario

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)

Código:

#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.

Gracias mi Hermano me sido muy util tu respuesta

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

Ya enconte el texto.

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

Código:

 TRect  R;

  R.Left = 0;

  R.Top = 0;

  R.Right = Fondo->Width;

  R.Bottom = Fondo->Height;

  Canvas->CopyRect( R, Fondo->Canvas, R );

 --

Eso si