Create objects automatically

Dev Shed Forums Sponsor:

October 26th, 2012, 02:17 PM

newsoul

Registered User

Join Date: Oct 2012

Posts: 7

Time spent in forums: 6 h 49 m 37 sec
Reputation Power: 0

Create objects automatically

I'm trying to create some TImage objects automatically and load the picture from a directory so as not to stack my .dfl files with thousands of lines of hexadecimal code for each "picture data".

Can you tell me what's wrong with my procedure?

procedure tform1.setimage;
var x:TImage;

begin
x:=x.timage.create(self);
x.parent:=form1;
x.resizable:=true;
x.top:=0;x.left:=0;
x.picture.loadfromfile('1.jpg') {which is placed where the unit is}
x.show;
end;

October 26th, 2012, 06:36 PM

majlumbo

Contributing User

Join Date: Jun 2008

Posts: 255

Time spent in forums: 3 Days 2 m 15 sec
Reputation Power: 5

Make sure JPEG is in your uses clause

Code:

Procedure TForm1.SetImage;
var
   X: TImage;
   Jpg: TJpegImage;
begin
   X := TImage.create(self);
   X.Parent := Self;//Do not use Form1 always use self
   X.Top := 0;
   X.Left := 0;
   Jpg := TJpegImage.Create;
   try
      Jpg.LoadFromFile('1.jpg');
      X.Width := Jpg.Width;
      X.Height := Jpg.Height;
      X.Picture.Graphic:=Jpg;
   finally
      Jpg.Free;
   end;
   X.Show;
end;

October 27th, 2012, 04:42 AM

newsoul

Registered User

Join Date: Oct 2012

Posts: 7

Time spent in forums: 6 h 49 m 37 sec
Reputation Power: 0

Quote:

Originally Posted by majlumbo

Make sure JPEG is in your uses clause

Code:

Procedure TForm1.SetImage;
var
   X: TImage;
   Jpg: TJpegImage;
begin
   X := TImage.create(self);
   X.Parent := Self;//Do not use Form1 always use self
   X.Top := 0;
   X.Left := 0;
   Jpg := TJpegImage.Create;
   try
      Jpg.LoadFromFile('1.jpg');
      X.Width := Jpg.Width;
      X.Height := Jpg.Height;
      X.Picture.Graphic:=Jpg;
   finally
      Jpg.Free;
   end;
   X.Show;
end;

It worked. Thanks!

Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > Create objects automatically

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump