PDA

Ver la Versión Completa : Colocar imágenes


maxi915
25-09-2012, 05:19:25
HOla, estoy haciendo un pequeño programita para mi novia que le serviria para dar unas clases a unos chicos de escuela.

Seria algo interactivo con botones y acertijos, algo simple porque no hay mucho tiempo, les queria preguntar como puedo hacer para colocar una imajen en el formulario de delphi.

Intente con un copiar pegar, pero no funciono, gracias!

ecfisa
25-09-2012, 06:03:38
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:

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

roman
25-09-2012, 07:16:34
maxi915,

Por favor, coloca bien tus hilos. Este tema nada tiene qué hacer en el foro de debates. Lo paso al foro de gráficos.

// Saludos