Menambah component secara runtime delphi

‎[Tanya om...]

Om, gmn caranya menampilkan sejumlah komponen sesuai dengan yang diinginkan..

seperti gambar om.., kemudian tetap memperhatikan jarak tiap2 komponen. :D

• Udin Zigma likes this.
• 

  
  
  ArRady Fuad Ar-Radhihttps://www.facebook.com/groups/kppdi/10151580730985850/
  
  KOMUNITAS PENGGEMAR PEMROGRAMAN DELPHI INDONESIA
  ‎[SHARE] Menjawab pertanyaan yang ini:https://www.facebook.com/groups/kppdi/per...See more
  7 hours ago · Like
  
  
  Adhi Pras procedure TFrmMon.posMonitor;
  var i, lebar, kiri, atas : Integer;
  begin
  if logged=false then Exit;
  lebar := pnlMon.Width;
  kiri := 0;
  atas := 0;
  
  for i := 1 to MAX_MON do
  begin
  pnl := FindComponent('tbl'+IntTostr(i)) as TPanel;
  if (kiri + pnl.Width) < lebar then
  begin
  pnl.Left := kiri ;
  pnl.Top := atas;
  kiri := kiri + pnl.Width; // jarak kekiri , mepet, perlu jarak tambahin
  end else
  begin
  // kalo jarak ke kiri penuh turun kebawah
  kiri := 0;
  atas := atas + pnl.Height;
  pnl.Left := kiri ;
  pnl.Top := atas;
  kiri := kiri + pnl.Width;
  end;
  end;
  end;
  7 hours ago via mobile · Like · 1
  
  
  L Andriana Hartono heheh ok deh See All ,.. ini yg saya buat :
  ini buat variabel global(utama) biar gampang setting nya
  
  var
  xawal,yawal,alebar,spasi:integer;
  
  //inisialisasi variabel
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  xawal:=2;
  yawal:=50;
  alebar:=200;
  spasi:=5;
  end;
  
  //ini buat bikinnya
  procedure TForm1.Button1Click(Sender: TObject);
  var s:TListBox;
  begin
  s:=TListBox.Create(nil);
  s.Left:=xawal;
  s.Top:=yawal;
  s.Width:=alebar;
  s.Visible:=true;
  xawal:=xawal+spasi+alebar;
  s.Parent:=self
  end;
  7 hours ago · Unlike · 3
  
  
  Imam Chalimi Bin Moeslim maaf koreksi sedikit,
  rubah s:=TListBox.Create(nil); menjadi s:=TListBox.Create(Self);
  dengan tujuan bila form ditutup komponen yg di create juga dibebaskan, sehingga tidak mendatangkan tamu tidak diundang (access violation)
  7 hours ago via mobile · Unlike · 6
  
  
  L Andriana Hartono sip deh mas Imam terima kasih
  7 hours ago · Like · 2
  
  
  L Andriana Hartono ini tambahan buat validasi lebar dan tinggi nya bang Koko
  
  var
  Form1: TForm1;
  xawal,yawal,alebar,spasi,tinggi:integer;
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.Button1Click(Sender: TObject);
  var s:TListBox;
  begin
  if (xawal<form1.Width-alebar)then
  begin
  s:=TListBox.Create(self);
  s.Left:=xawal;
  s.Top:=yawal;
  s.Width:=alebar;
  s.Visible:=true;
  s.Height:=tinggi;
  xawal:=xawal+spasi+alebar;
  s.Parent:=self;
  end
  else if yawal<(form1.Height-tinggi-s.Height-tinggi) then
  begin
  yawal:=yawal+5+tinggi;
  xawal:=2;
  end
  else ShowMessage('dah mentok mas maaf ya');
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  xawal:=2;
  yawal:=50;
  alebar:=200;
  spasi:=5;
  tinggi:=100;
  end;
  6 hours ago · Like