Menambah Component Visual saat Runtime

Leave a comment

Adakalanya program yang kita buat melakukan operasi yang membutuhkan penambahan komponen saat Runtime, gimana maksud nya??

gini ,, biasanya kita menambahkan/meletakan komponen saat posisi design time atau waktu merancang menggunakan IDE delphi. nah,, kali ini saya share gimana cara nambahin komponen waktu Runtime atau saat program di jalan kan..

hemmm.. berhubung udah ngantuk dan lemes,, jadi saya ngasi contoh yg sederhana saja ,, yaitu menambah komponen TButton saat runtime.

secara garis besar,, Property yang perlu di perhatikan ketika menciptakan objek visual secara umum yaitu :

0. Parent, parent yg di maksud disini adalah component visual yang bersifat container yang nantinya sebagai tempat berdiri dari component yang akan di ciptakan.

1. Tinggi (Height)

2. Panjang (Width)

3. Batas atas terhadap Parent (Top)

4. Batas kiri terhadap Parent (Left)

property lain, seperti Caption, Hint, Align tinggal menyesuaikan kebutuhan saja.

berikut kode nya

procedure TForm1.pCreateButton();

var vButton : TButton;

begin

vButton := TButton.Create(Form1); //form1 disini adalah owner dari TButton

vButton.Parent := Form1; // tempat berdiri dari TButton

vButton.Width := 100;

vButton.Height := 50;

vButton.Top := 50;

vButton.Left := 50;

end;

procedure TForm1.FormClick(Sender: TObject);
begin
pCreateButton;
end;

maka, ketika form1 di klik komponen TButton tercipta, berikut SS nya

Function dan Procedure dalam delphi

1 Comment

haduh,, sudah lama sekali nggk nulis di blog ini,, hahahahay.. kali ni saya mau share tentang function dan procedure di dalam pemrograman delphi,

mengapa… mengapa.. harus mempelajari itu?? begini.. saya jelaskan… penulisan atau penambahan secara manual suatu function atau procedure lebih baik dilakukan saat menyelesaikan suatu permasalahan yang membutuhkan operasi tertentu secara berulang kali, penambahan function dan procedure yang sesuai dengan kebutuhan dapat mempermudah ketika mengembangkan project serta pencarian bug dalam project tersebut.

More