¿Como hacer que aparezca una imagen al hacer clic en un boton?

[viejinho]

Hola a todos, quiero hacer un manual de las funciones de un programa, pero para hacerlo facil de comprender me gustaria poner la instrucción y que al dar clic en un boton aparezca la imagen relacionada con la insturccion, algo asi:

Y que cada vez que haga clic en el boton aparezca la imagen que le corresponde a la instrucción

Se me ocurre una opcion que seria hacer una ventana nueva identica, solo que con la imagen correspondiente a la insturcción, asi al dar clic daria la impresión de que la imagen aparece, pero no me gustaría liarme con tantas ventanas, por ejemplo si en una ventana hay 5 instrucciones tan solo por esos pasos serian 6 ventanas diferentes, imaginemos que hay 50 instrucciones, entonces serian un montón de ventanas.

Por eso me gustaría mejor que al dar clic cambie solo la imagen por otra y no que me mande a una nueva ventana identica con la imagen correspondiente.

Espero me de a entender, de antemano muchas gracias.

[ecfisa]

Hola viejinho, bienvenido a Club Delphi

Como a todos los que ingresan te invitamos a leer nuestra guía de estilo.

Podes agregar un componente TImage y mostrar allí las imágenes que se van seleccionando:

Código Delphi [-]
// Mostrar imágen instrucción 1
procedure TForm1.btnVer1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('Instruccion1.jpg');
end;

// Mostrar imágen instrucción 2
procedure TForm1.btnVer2Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('Instruccion2.jpg');
end;

// Mostrar imágen instrucción 3
...

Saludos

[[nlsgarcia]]

viejinho,

Empezado por viejinho

...¿Como hacer que aparezca una imagen al hacer clic en un botón?...

¡Bienvenido al Club Delphi!

Revisa esta información:

1- TImage - Delphi Usage Examples, Tips and Tricks

2- What goes in a Delphi VCL TGraphic, TPicture, TImage, and how to convert between graphic file formats?

3- Trucos sobre imágenes en Delphi

Espero sea útil

Nelson.

[viejinho]

Muchas gracias por tu pronta respuesta, en la ventana creo un button y un TImage sin cargarle ninguna imagen, escribo el codigo que pones, en la carpeta del projecto tengo una imagen Instruccion2.jpg y cuando doy clic en el boton me aparece este error:

"Project Project1.exe raised exception class ElnvalidGraphic with message 'Unknown picture file extension (.jpg)'. Process stopped. Use step or Run to continue."

EDITO: Ya lo solucione, es necesario cargar una imagen en el TImage para que cambie de imagen, yo no la había puesto pensando que solo tenia que poner el TImage (el marco que aparece cuando se pone) y dejarlo vació para que ahí se cargaran las imagenes al hacer clic.

Muchas gracias a los 2 por ayudarme.

Empezado por nlsgarcia

viejinho,


¡Bienvenido al Club Delphi!

Revisa esta información:
Espero sea útil

Nelson.

Gracias, checare los enlaces.

[ecfisa]

Hola viejinho.

Código Delphi [-]
...
implementation

uses JPeg;  // <- Incluye esta línea

...

Saludos

[viejinho]

Empezado por ecfisa

Hola viejinho.

Código Delphi [-]
...
implementation

uses JPeg;  // <- Incluye esta línea

...

Saludos

Ya estaba incluida, y ya esta todo solucionado, muchas gracias por la ayuda.