aku pny masalah ne... begini... agak panjang tapi mudah2an nyambung.... :arrow: Sebagai contoh... Misalnya didalam sebuah project delphi, saya berikan 1 komponen Listbox, 1 komponen Button dan 1 komponen ADOTable yang sdh connect pd sbuah tabel yg ada pd databse dan fieldnya terdiri dari "nip", "nama", "alamat", dan "phone". Kemudian saya ingin data-data yang sudah diinputkan kedalam tabel ditampilkan kedalam komponen Listbox pada saat project di kompile, tetapi yg ditampilkan hanya data-data yang ada pd field "nip" saja. Yang sudah saya ketahui kurang lebih scriptnya begini : //type komponennya.. ADOTable1: TADOTable; Listbox1: TLisBox; Button1: TButton; //implementasi procedure OnClick dari komponen Button.. procedure TForm1.Button1Click(Sender:TObject); begin Listbox1.Clear; ADOTable1.First; while not ADOTable1.eof do begin Listbox1.Items.Add(ADOTable1nip.Asstring); ADOTable1.Next; end; end; Dengan script diatas, maka semua data yg ada pd field "nip" akan ditampilkan kedalam Listbox. Pertanyaan saya, gimana klo bukan komponen Listbox yang akan digunakan untuk menampilkan data-data dari field "nip" tsb tetapi menggunakan komponen Panel? Misalnya didlm field "nip" trdpat 4 data nip. Untuk menampilkan keempat data nip tsb, saya mmbutuhkan 4 komponen panel jg untuk menampilkannya (data nip). Tidak bisa hanya dengan 1 komponen panel (Panel1.Caption:=(ADOTable1nip.Asstring)) karena yg akan ditampilkan hnya data terakhirnya saja. Apakah mngkin bisa mnggunakan variable bertipe array? Lantas gmn caranya ya?? Mohon bantuannya... terimakasih.. :wink: [/i]

ada yg tau gk ya...??? plissss tolong dwonk... :cry:

contoh :

procedure TForm1.Button1Click(Sender: TObject);
var i,j : integer;
    cpt : TLabel;
begin
j := 20;
for i := 1 to 11 do
Begin
    cpt := TLabel.Create(Self);
    cpt.Parent := Panel1;
    cpt.Caption:='Nip ke : '+IntToStr(i);
    cpt.Left := 30;
    cpt.Top := 10+j;
    j:= j+20;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Caption:='';
end;

... silahkan di kembangkan ...

sample simple to the point ===================

procedure TForm1.Button1Click(Sender:TObject);
begin
  ADOTable1.First; 
  while not ADOTable1.Eof do
  begin
    with TPanel.Create(Self) do
    begin
      Parent:=Self;
      Caption:=ADOTable1nip.Asstring;
      Top:=Self.Tag;
      Self.Tag:=Self.Tag+Height;
    end;
    ADOTable1.Next;
  end;
end;

tinggal di acak-acak sesuai yg diharapkan, xixixiiix

buat mas mas nya.. makasih ya aq dah di bantu... tapi bukannya operator create dipakai untuk membuat komponen baru?? emg bener sih procedure yg dah mas buat sesuai dng apa yg aq tanyain... sumpah gak ada yg salah... dua-dua joss... :wink: cuma mslahnya panelnya dah tersedia didalam aplikasi, hnya tinggal dimasukkan caption yng sesuai dengan data dari field nip pada saat runtime... jd gak perlu mmbuat panel lagi... sbnernya gak masalah sih klo harus mmbuat panel lgi disaat runtime.. tapi aq bingung gimana mnghapusnya... skrg ini aq lagi buat sbuah aplikasi pengolahan data sekolah.. penyediaan menunya mngunakan komponen MainMenu.. Misalnya aq bwt menu "Data Guru" terus onclick-nya aq kasi salah satu procedure diatas.. saat runtime, aq klik menu "Data Guru" maka akan dibuat panel dgn caption nip-nip guru yg ada pd tabel atau database. oke.. klik pertama sesuai harapan.., tapi saat aq klik menu "Data Guru" untuk yg kedua kalinya eh malah nambah dan jadi rame gitu... nah, gimana ya mas cara hapus panelnya terus dibuat lagi...??? udah aq otak atik sih mas... tapi emg dasar pemula... payah... ampe botak juga gak bakalan ketemu klo hanya pnya ilmu tentang delphi yg hanya alakadarnya ini... maaf ya mas... mohon bantuannya lagi... makasih so much.... :)

pake koding yang mana nih, punya mas imanD apa elva_ivana?

hmm, hmm, hmm... ada2 saja yawh... ^_^ komponen ListBox nya wajib dihapus apa ga? klo ga wajib dihapus, ListBoxnya di-set Visible=False ajah. trus sesuaikan dengan kode berikut.

unit Unit1; // bisa beda nama unit nya
interface
uses // isi uses juga bisa beda
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus;
type
  XPanel = class(TPanel); // tambahan
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    DataGuru1: TMenuItem;
    Panel1: TPanel;
    ListBox1: TListBox;
    // dan lain2...
    procedure FormCreate(Sender: TObject);
    procedure DataGuru1Click(Sender: TObject);
    // dan lain2...
  private
    { Private declarations }
  protected // tambahan
    procedure TeksPanelChange(Sender: TObject); // tambahan
  public
    { Public declarations }
  end;
var
  Form1: TForm1;  
  marginKiri, marginAtas: byte; // tambahan
implementation
{$R .dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  // ...
  XPanel(Panel1).Canvas.OnChange := TeksPanelChange; // tambahan
  marginKiri := 3; // tambahan, angka 3 tinggal disesuaikan ama kebutuhan
  marginAtas := 3; // tambahan, angka 3 tinggal disesuaikan ama kebutuhan
end;
procedure TForm1.TeksPanelChange(Sender: TObject);
var k: integer; 
begin
  XPanel(Panel1).Canvas.OnChange := nil;
  for k := 0 to ListBox1.Items.Count-1 do begin
    XPanel(Panel1).Canvas.TextOut(marginKiri,
      marginAtas+k XPanel(Panel1).Canvas.TextHeight('SiKuper85 ^_^'),
      ListBox1.Items.Strings[k]);
  end;
  XPanel(Panel1).Canvas.OnChange := TeksPanelChange;
end;
procedure TForm1.DataGuru1Click(Sender: TObject);
begin
  // ...
  // disini perintah ngisi ListBox dengan data NIP yg dari tabel.
  Panel1.Refresh; // tambahan
end;
// ...
end.

(semoga ga da yg salah ketik, aamiin...) (wah2, bahaya klo ngasih nama variabel pake huruf i, ^_^) perhatikan yg ada tanda // tambahan nya. CMIIW banged.

@ tendafahmi : pakek kodingnya mas imamD... makasih... @ sikuper85 : thanx mas.. aq coba dulu...

emang bahayanya kenapa mas klo pakek var i??