Delphi - ?Como agrego elementos image durante la ejecusion

 
Vista:
sin imagen de perfil
Val: 5
Ha aumentado 1 puesto en Delphi (en relación al último mes)
Gráfica de Delphi

?Como agrego elementos image durante la ejecusion

Publicado por Michel (35 intervenciones) el 07/03/2006 03:34:23
Dios les Bendiga hermanos:

Necesito saber como puedo generar muchas veces el componente (image) durante la ejecusion del formulario.
Me refiero a esto para que me entiendan: image1, image2, image3, image4, image(n)... y que todos los elementos image que se van generando caigan en una coordenada determinada en el formulario.
Necesito que se genere muchas veces ese componente y que se vayan agregando al formulario mientras se crean automaticamente. Necesito aplicar esto para un programa que simula un proceso y necesito que cada vez que se genere un elemento (image), ponerle una imagen pequena.
ESPERO SU AYUDA, DIOS TE BENDIGA MUCHO.

alianzacristiana_7@hotmail.com
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:?Como agrego elementos image durante la ejecusi

Publicado por Dr Juzam (822 intervenciones) el 07/03/2006 16:29:56
Aquí te dejo el código, a ver si te sirve:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, JPEG;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
Contador: integer; //Para el nombre de la imagen
Izq, Alt: integer; //Coordenadas de la imagen
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //Creamos la imagen
var
MiImagen: TImage;
begin
MiImagen:=TImage.Create(Self);
MiImagen.Parent:=Self;
MiImagen.Name:='Imagen'+IntToStr(Contador);
MiImagen.Left:=Izq;
MiImagen.Top:=Alt;
MiImagen.Picture.LoadFromFile('C:/1.jpg');
MiImagen.Show;
inc(contador);
inc (Izq, 20);
inc (Alt, 10);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Contador:=0;
Izq:=0;
Alt:=0;
end;

end.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar