Add TImage (Dynamic Way)

[ZeeNer]

Hi all,
i want to create (and add) some TImage component in my application but i want to do it inside a procedure (Exemple : before the execution the application had 4 Timage, and after the execution of this procedure the application had 24 TImage) , does anyone here can help me?

Sorry for my english guy

 

[Svanhooft]

hi,

this example creates one Timage on a form.

uses ExtCtrls

procedure TForm1.Button1Click(Sender: TObject);
var
img1: Timage;
begin
img1 := Timage.Create(Form1);
img1.Parent := Form1;
img1.Top := 10;
img1.Left := 300;
img1.Picture.LoadFromFile('example.bmp');
end;

replace 'example.bmp' with a valid image name.

Steph