Wednesday, 20 March 2013

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
[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

No comments:

Post a Comment

Install Fortesreport community Delphi 7 dan RX Berlin

Download  Pertama2 kita harus punya file installernya terlebih dahulu, download  https://github.com/fortesinformatica/fortesrepo...