TTrackbar

//TTrackBar

{

TTrackBar Adalah Sebuah Komponen Yang Berguna Sebagai Pemberian Nilai Berdasarkan Track...
Hampir Seperti Progress bar yang memiliki Batas Min , max Dan Position ...

Trackbar Memiliki Button Yang dapat Digeser Untuk Memberikan Sebuah Nilai ..

Seperti Pada Track Di Pengaturan Volume Yang ada Di Media Player Anda ...


Penggunaan Track Bar Beserta Kode.nya Pun Sama Dengan Progress Bar


}

TTimer

//TTimer

{

TTimer adalah Sebuah komponen yang berguna untuk membuat Suatu Event yang berjalan terus
Jadi ttimer berisikan Event ("ONTIMER") maksudnya pada saat Berjalan

Jadi jika komponennya enable atau aktif maka pada saat itu pula kode didalamnya berjalan terus

Dan Di timer ada Property "Interval" atau Waktu Jeda Tiap2 Putaran Kode Tersebut.
Batas  Interval = 1 - 1000 =
Interval atau batas jeda memakai Type Milisecond

interval 100 = 1 detik ..

Sebagai COntoh Saya Akan Membuat form berkedip tiap 10 detik

Sebelumnya Masukkan Komponen ( Ttimer )
Dan Masukkan kode kedalam Event timer (ONTIMER)

}

//============================================

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Form1.Color = clBlack  then
form1.Color := clWhite

else
Form1.Color := clBlack ;

end;

//============================================


{

Jadi Kode ini berjalan terus menerus saat pada property timer (enable) menjadi true ..

Dan Maksud dari kode diatas adalah ..


if Form1.Color = clBlack  then  =   "jika color.form1 = clblack maka "
form1.color := clwhite          =   "color.form1 adalah clwhite"

else   =   "Selain dari pada itu"
Form1.color := Clblack =   "color.form1 adalah clblack"


}

TSavedialog

//Tsavedialog

{

TSavedialog adalah komponen yang berguna untuk mengambil lokasi (path)
Biasanya berguna untuk Memilih tempat penyimpanan

Seperti contoh dibawah ini ...


Sebelumnya Buat Dulu Komponen (Tsavedialog , Tmemo , Tbutton)

Setelah itu masukkan Kode kedalam Tbutton ...

}

// ==============================================


procedure TForm1.Button1Click(Sender: TObject);
begin

SaveDialog1.Execute() ;
Memo1.Lines.SaveToFile(SaveDialog1.FileName + '.txt') ;

end;


//===============================================

TRadioButton

//TRadioButton

{

TRadio Button Adalah Komponen Yang berguna Sebagai Media Pilihan
Hampir Sama Dengan TCheckbox , Bedanya ..

TRadioButton Hanya Memiliki 1 Buah Pilihan ...
Anggaplah ada 2 Buah Radiobutton , Maka Anda Hanya Bisa Memilih 1 Diantaranya..

Seperti Pada Pilihan Jenis Kelamin .

Laki-Laki Dan Perempuan ,, Maka Anda Hanya Bisa Memilih salah 1 diantaranya..

Untuk Mengganti Isi dari TRadioButton Ada Pada Properties ("CAPTION")

}

TProgressbar

//TProgressbar

{

TProgressbar Adalah Komponen Yang berguna Sebagai Tampilan Pemrosesan Data...

Seperti Tampilan Loading ...


Pada Properties Progressbar ada ( MIN , MAX , POSITION )

Min = Batas Minimal
Max = Batas Maximal
Position = Posisi Saat ini.

Jadi Jika ingin memasukkan Nilai Position Bisa menggunakan kode seperti ini

Progressbar.Position := 21 ;      // harus Bernilai Angka Decimal (Integer)

Begitupun Untuk Mengatur Batas MIN dan MAX

}

TPopUpMenu

//TPopupMenu

{

TPopUpMenu adalah komponen yang berguna Untuk menampilkan menu2 pada saat komponen lain Di klik kanan
atau bisa dikatakan Jumper pada menu2

Untuk membuat list atau menu2 pada popupmenu sama dengan komponen main menu

begitupun dengan event2nya ...

Dan untuk mengkoneksikannya dengan komponen lain adalah ...


1. Klik 1 kali pada Komponen yang ingin dipasangkan Popupmenu ... seperti (panel , Form ,DLL)

2. Pada Event cari Popupmenu ... lalu pilih popupmenu anda...
Biasanya berada paling bawah event ..

3. Selesai .


}

TPanel

//Tpanel

{

TPanel adalah Sebuah Komponen Yang Berguna Sebagai Layar ...
Misalnya ada Puluhan Komponen Yang Ingin Digerakkan Dalam 1 kali Proses ..

Maka Anda Tinggal Memasukkan Komponen Berikut kedalam TPanel ..
Dan Yang anda Gerakkan Hanyalah Tpanel Tersebut ...

Tpanel Juga Berguna Sebagai Layar Pada Komponen TMediaplayer
Tpanel Dapat Menampilkan Video Yang Sebelumnya Sudah DIkoneksikan Dengan MediaPlayer

Untuk Mengganti Warna Ada Pada Properties "Color"
Untuk Mengganti Text Dalam TPanel Ada Pada Properties "Caption"

}

TOpendialog

//TOpendialog ...

{

TOpendialog adalah Sebuah komponen yang berguna untuk memilih file yang ada pada PC

COntohnya Jika ingin mengambil image di PC


Sebelumnya masukkan komponen (Topendialog , tbutton , timage)

Kemudian masukkan kode kedalam tbutton

Dan masukkan "JPEG" di bagian USES pada CODE....
}

//=========================================

procedure TForm3.Button1Click(Sender: TObject);
Begin

opendialog1.execute;
if opendialog1.files.count <> 0 then begin
image1.picture.loadfromfile(opendialog1.filename);
end;

end;


//=========================================



//Jalankan dan klik button1 ,, Lalu pilih Image.nya


{

Topendialog Memiliki Property Filename , Yang artinya Namafile

Nama File yang dimaksud adalah Lokasi.nya + Nama + extensi file ...
Seperti ini
"D:\FOto.jpg"

Lokasi = D:\
Nama = Foto
Extensi = .jpg


}

TMemo

//TMemo

{

TMemo adalah Sebuah Komponen Yang berguna Seperti TEdit Sebagai Media Penulisan

Bedanya Tedit Hanya Memiliki 1 Paragraf , sedangkan Tmemo Memiliki Banyak Paragraf ...
Seperti Komponen Yang Sedang Saya Gunakan Ini ...

Untuk Mengisi Tmemo Ada pada properties  ("LINES")

Dan Contoh mengisi TMemo Saat Program Berjalan Seperti Dibawah ini

Sebelumnya Masukkan Komponen TButton dan TMemo .
Dan masukkan kode kedalam TBUTTON
}

//=============================================

procedure TForm1.Button1Click(Sender: TObject);
var a:string;
begin
a:='Isi Kedua';

Memo1.lines.add('Ini isi memo1') ;
Memo1.lines.add(a);

End;


//=============================================

TMediaplayer

//TMediaplayer

{

TMediaplayer adalah komponen yang berguna untuk memutar Sebuah File Audio
Tetapi TMediaplayer Tidak dapat memutar Semua File audio ...

Tapi Kali ini Kita akan memutar Audio Berextensi .mp3

Sebelumnya Masukkan Komponen (TMediaplayer 3 Buah Tbutton) ;

Sebelumnya Ganti Caption Tiap Button
1 = Play
2 = Stop
3 = Open

}

//Pada Button OPEN

procedure TForm1.Button1Click(Sender: TObject);
begin
Mediaplayer1.filename := 'D:\Laguku.mp3' ;
Mediaplayer1.open ;
end;



// Pada Button Play

procedure TForm1.Button2Click(Sender: TObject);
begin
Mediaplayer1.play ;
end;



// Pada Button Stop

procedure TForm1.Button3Click(Sender: TObject);
begin
Mediaplayer1.stop ;
end;

TMainMenu

//TMainMenu

{

TMainMenu Adalah Sebuah Komponen Yang Berguna Untuk Membuat Menu2 Seperti

File | Edit | Search | View

Akan Tetapi Pengisian Menu Dilakukan Secara Manual ...
Yaitu Dengan Cara
1. Masukkan Komponen Main Menu .
2. Double Klik Pada Komponennya.
3. Ubah Caption Pada Propertiesnya , Maka Akan Otomatis Membuat Menu Baru
4. Jika Ingin Menambahkan Sub Menu ..
Tinggal Klik Pada Menu Yang ingin Ditambahkan Kemudian Klik Lagi
Items kosong yang ada dibawahnya ... Setelah Itu Ubah Juga Captionnya.

5. Jika Ingin Menambahkan Sub Menu dalam Sub Menu ...
Klik Kanan Pada Sub Menu itu , Lalu Pilih Create Sub Menu ...

====================================

Di Main Menu Juga ada Event.nya ...
Jika Ingin Mengatur Eventnya , Double Klik Pada Menu/Sub Menu Yang ingin Diberi Event.


}

TListbox

//TListbox

{

TListbox Adalah Komponen Yang Berguna Untuk Menampilkan List Secara Down..
Berbeda Dengan TCombobox , Tlistbox Menampilkan Semua isi List.nya Sesuai dengan Tinggi komponen

Penggunaan Tlistbox Dengan Tcombobox Sama ... Hanya Berbeda Tampilan .

}

TLabel

//TLabel

{

Komponen TLabel adalah komponen Yang berguna Sebagai Komponen Keterangan ...
Komponen Ini Paling sering berdempetan dengan Komponen Tedit .


//Misalnya Digunakan Pada Keterangan Edit.
Dia Berguna Agar Sipengguna dapat mengetahui apa yang akan diisi pada Komponen Edit Tsb

TLabel Pun dapat Berdiri sendiri , Misalkan pada saat Menjadi Judul

Untuk Mengganti Isi Teks Pada TLabel , Berada Pada Properties ("CAPTION")


}

TImage

//Timage

{

Timage Adalah Komponen Yang Berguna Untuk Menampilkan Image , Atau Foto ...

Untuk Menampilkan Image Ada Pada Properties "PICTURE"
Dan Untuk Mengatur Resolusi Mengikuti Komponen  Ada Pada Properties "STRECH"
Dan Adapun Pengaturan Resolusi Otomatiss ada pada Properties "PROPOTIONAL"


Contoh Mengganti Image Pada Saat Form Berjalan ...

Masukkan Komponen Button Dan Image

Sebelumnya Tambahkan Kata  "JPEG" Pada USES ... Di Bagian Paling atas Kode... Dan cari USES..
Seperti Dibawah ini


==========================================

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs , JPEG;

===========================================

INGAT TAMBAHKAN ...

JPEG Berguna untuk mendaftarkan Ekstensi Image Bertipe JPG ...

Setelah Itu masukkan kode Pada BUTTON1 ONCLICK Seperti Dibawah ini

}




//===========================================

procedure TForm1.Button1Click(Sender: TObject);
begin

Image1.picture.loadfromfile(' D:\Foto\CIEE.jpg ');
Image1.Propotional := True ;

end;


//===========================================


// Loadfromfile maksudnya Ambil dari data ...

TEdit

// TEdit

{

TEdit adalah Sebuah Komponen Yang berguna Sebagai Media Penginputan

Media Penginputan Maksudnya , adalah komponen yang digunakan Untuk memasukkan Sesuatu
Tentu Berupa Symbol ... baik itu kata , Angka , DLL

Dalam Komponen Edit Ada Properties "Text"... Properti ini adalah isi dari TEDIT

Misalnya Untuk Media Penginputan Nama ..
Jadi Nama Diambil Dari Isi "TEdit" Setelah Data DImasukkan

Contohnya. Kita Menggunakan 1 Buah Edit , dan 1 buah button ...
Kita Memasukkan Kode Kedalam Button (Onclick)...

}

//======================================

Procedure TForm1.Button1Click(Sender: TObject);
Begin

Showmessage(' Data Berhasil Di input ') ;
Showmessage( Edit1.text) ;

End;


//======================================

{
Jadi Sesuai Kode Diatas ... Akan Menampilkan 2 Pesan ..

1. Data berhasil Diinput
2. Edit1.text artinya  ( text yang berada dalam edit 1)

Perhatikan Isi Dalam Kurung Showmessage ...
1. Memakai Kutip atas dan satunya lagi tidak memakai kutip atas

Penjelasan ...

Jika anda ingin menampilkan kata biasa , maka harus dibatasi Dengan Kutip atas
Jika anda Ingin Menampilkan Kata dari Sebuah komponen , maka anda harus memanggilnya

}

TDbGrid

//TDBGrid

{

Setelah Adoconnection , Adotable , Datasource ...

TDBGrid Adalah Komponen Yang Berguna Untuk Menampilkan data Dari Database anda
Yang Sebelumnya Sudah Di koneksikan Dengan Program Anda

Untuk Menampilkan Database anda
Pada Property DBGrid ("Datasource") Isikan dengan datasource1

Nah .. Jika sudah , maka anda sudah menampilkan Isi database kedalam Program anda ..


"Untuk Mengatur Lebar dari setiap Field.nya ...

1. Double klik pada DBGrid anda
2. Setelah Form DBGrid Terbuka Pilih Tombol Icon Ke 3 (Add all Fields)
3. Setelah Semua Field Terdaftar , Anda tinggal Mengatur 1 Per 1 Lebarnya
Ada Pada Property Width (Sebelumnya Fieldnya Sudah Di Klik 1 Kali)

Sekian ...


}

TDataSource

//TDatasource

{

Setelah Tadoconnection dan Tadotable / TAdoQuery

Tdatasource adalah sebuah komponen yang berguna untuk mengkoneksikan data dari database

Untuk Mengkoneksikannya
1. Pada Property Datasource ("Dataset") = pilih adotable1 / Adoquery1
2. Pada Property DataSource ("Enabled") Ubah Menjadi True


Nah Anda Sudah Terkoneksi Full Dengan Database anda , Begitupun dengan Data2nya

Sekarang Anda TInggal Menampilkannya

Lanjut Di DBGRID


}

TCombobox

//TCombobox

{

TCombobox Adalah Sebuah Komponen Yang Berguna Sebagai Media Pilihan...

Media Pilihan Yang Dijadikan Dalam 1 List...
Model Dari Komponen Ini Berbentuk List Yang Dapat DiDropdown...

Contohnya.
Seperti Pada Pilihan2 Materi , Anda Dapat Memasukkan Kedalam TCOmbobox.

Dan Untuk Mengisi List TCombobox Ada Pada Properties ("ITEMS")

==========================================

"PENTING"
TCombobox memiliki itemindex , Artinya Index dari item ... Atau urutan Index yang dipilih

Itemindex dimulai dari 0 ...
Jika anda memilih items urutan 1 , maka itemindex.nya = 0
Jika anda memilih items urutan 2 , maka itemindex.nya = 1
Jika anda memilih items urutan 3 , maka itemindex.nya = 2

Nah Seperti itulah itemindex...
Sedangkan Jika Tidak ada pilihan... Maka Itemindex.nya = -1
==========================================


Contoh Menggunakan TCombobox...
Sebelumnya Buat 2 Buah Button Dan 1 Buah Tcombobox...

Dan Masukkan Kode Kedalam TBUtton1...

}

// Kasus 1 , Menambahkan Items saat program berjalan
//======================================

procedure TForm1.Button1Click(Sender: TObject);
Begin

Combobox1.items.clear ;    // Bersihkan - items - combobox1
Combobox1.items.add('Items1') ; // Tambahkan('ISI') - items - Combobox1
Combobox1.items.add('Items2') ;
Combobox1.items.add('Items3') ;

End;

//======================================




// Pada Button2 ...

procedure TForm1.Button1Click(Sender: TObject);
Begin

if combobox1.itemindex > -1 then
Showmessage( Combobox1.items [Combobox1.itemindex]  );

End;


//======================================

//Artinya
{

Jika itemindex.combobox1 > -1 maka
Tampilkanpesan ( Items berdasarkan index combobox1 , pada combobox1 ) ...

}

TCheckbox

//TCheckBox...

{

TCheckbox adalah Sebuah Komponen Yang Berguna Sebagai Pilihan Lebih Dari 1 ...

Misalnya Pilihan Pada Makanan , Minuman , Hobby , DLL

Komponen Ini hampir sama Dengan Tlabel , Bedanya Dia Memiliki CHECK dalam Label..

Dan Untuk Mengganti Isi dari TCheckbox Ada Pada Property ("CAPTION")

}

TButton

//TButton

{

TButton Adalah Sebuah Komponen Yang Berfungsi Sebagai Tombol...

"Event" Pada "TButton" yang Sering Digunakan Adalah Onclick (Pada Saat Klik)

Untuk Masuk Event OnClick Pada Tbutton Ada 2 Cara yaitu

1. Double Click Pada Button
2. Klik 1 kali , lalu Klik Event , Lalu Double klik OnCLick

Contoh ....

}

//===========================================

Procedure TForm3.Button1Click(Sender: TObject);
Begin
Showmessage('Saya Klik Button') ;
End;


//===========================================

{
Jadi Pada Saat Program Dijalankan..

Maka Pada saat anda Klik Button 1
Akan Tampil Pesan ..." Saya Klik Button "
}