Menambah Component Visual saat Runtime

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

Auto Increment Field database Firebird dengan IBExpert

helo helo helooo,, nulis lagi dah,,

kali ini saya menjelaskan bagaimana cara bikin field auto increment pada database firebird,

kenapa musti dijelasin??

nice question..

tidak seperti pada mysql, pembuatan field auto increment di firebird lebih ribet, soalnya bisa dibilang manual, pada mysql tinggal di tambahin parameter AUTO_INCREMENT waktu bikin tabel seperti contoh di bawah ini

CREATE TABLE animals (
     id MEDIUMINT NOT NULL AUTO_INCREMENT,
     name CHAR(30) NOT NULL,
     PRIMARY KEY (id)
)
 

Function dan Procedure dalam delphi

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.

Batch Virus

Temen-temen Berikut adalah contoh virus dengan pemrograman Batch .. sederhana banget sih.. gak kejam .. gak ngrusak ..  gak neko-neko… tapi licik… hahaha

kenapa bisa licik?? yang bikin licik menurutku tu adanya proses looping nya.. jadi walau file yang di buat virus, atau registry entry yang di ubah ketauan sama yang punya komputer dan di kembalikan sepreti semula, tetep nantinya balik lagi-balik lagi hehehe

kalu mau liat sourcenya dan baca lebih lanjut silahkan klik link dibawah ini