Arsip: Tambah komponen saat program jalan
                
                   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.
                
                
                   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;
  ...
                
                   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:more ...
              - Pages:
 - 1
 
                    
                     reply  |
                     Report Obsolete
                  
                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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
 - Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago 
Random Topic
- Read file pdf
by fatahjunaidi in Hal umum tentang Pascal Indonesia more 18 years ago - rata kanan ?
by Lembah_Tidar in Hal umum tentang Pascal Indonesia more 18 years ago - SQL Query Error-where=(fieldnya integer)
by abu_nawm in MySQL more 16 years ago - ajari ya caranya tipe data delphi+ms access
by pits_its in Tutorial & Community Project more 18 years ago - Rp 200.000  = dua ratus ribu rupiah
by Theo_razor in Hal umum tentang Pascal Indonesia more 18 years ago - mengecek properti untuk semua objek sejenis
by benyy in Tip n Trik Pemrograman more 18 years ago - virtual key
by ags606 in Hal umum tentang Pascal Indonesia more 19 years ago - memanggil image dari URL
by Shaf in Hal umum tentang Pascal Indonesia more 17 years ago - Perancangan Database
by deepblue in FireBird more 19 years ago - membuat Form koneksi database dengan bde dan odbc
by ricky_seldjatem in Bedah Kasus more 17 years ago