Arsip: Tambah komponen saat program jalan

 
user image
more 18 years ago

m26403131

Saya mau tanya, bagaimana caranya menambahkan komponen(misal beberapa komponen image) tetapi pada saat programnya sudah jalan/run? apakah bisa komponen image yang di-tambahkan tadi dibuat ke dalam bentuk array. jadi nama imagenya mempunyai indek. (image[1],image[2], dst). Bagaimana caranya? mohon bantuannya.....ok thx.
user image
more 18 years ago

DelphiExpert

sangat2 bisa sekaleee :mrgreen: caranya adalah membuat object yg dimaksud melalui constructor, contoh:

var Img: TImage;
    ImgHolders: TList;
begin
  ImgHolders:= TList.Create; // dikau buat List utk menampung image2 tsb, buat di OnCreate;
  ...
  // add new image to the list
  Img:= TImage.Create; // cara membuat object / pemanggilan constructor TImage
  try
    ImgHolders.Add(Img);
    Img.Parent:= Self; // set parent, self adalah form itu sendiri atau dikau bisa tempelkan disembarang component turunan TWinControl, misal TPanel
    Img.Left:= 0;
    Img.Top:= 0;
    Img.Picture.LoadFromFile('xxxx.xxx');
    Img.AutoSize:= True;
  except
    ImgHolders.Remove(Img); // remove from the list if something wong goes
    FreeAndNil(Img);
  end;
  ...
user image
more 18 years ago

bosenjadiprogrammer

kalo pake array of Timage gimane?

procedure TForm1.Button1Click(Sender: TObject);
var FImage : array of TImage;
     i:integer;
begin
  for i:=0 to 9 do
   begin
    FImage[i]:=TImage.create(nil);
    FImage[i].Picture.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\16Color\ATHENA.BMP');
    FImage[i].Parent:=Form1;
    FImage[i].Left:=FImage[i].width * i;   //biar gambare ga nimpuk menimpuk
   end;
end;
nah dari situ kan dapet tuh kompo Timage baru yg ada indexnya FImage[0]....FImage[9] :wink:
user image
more 18 years ago

m26403131

ok thx semuanya sudah bisa sekarang.......... =)
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com