Bahasa Program: C++ Builder
TEdit digunakan untuk menerima masukan dari pengguna software. Ada dua cara untuk meletakkannya pada sebuah form. Pertama, memilihnya langsung dari palette VCL dan meletakkannya di form atau meng-instankan class TEdit dengan pemrograman.
TEdit termasuk di dalam unit StdCtrls.hpp, maka pastikan #include <StdCtrls.hpp> ada di unit berekstensi"h" form Anda. Misal, jika form aplikasi Anda di Uni1.cpp, maka unit ekstensi Anda bernama unit2.h
Membuat TEdit Secara Pemrograman
Untuk membuat TEdit secara pemrograman, kita membuat variabel dengan TEdit terlebih dahulu
void __fastcall TForm2::FormCreate(TObject *Sender)
{
TEdit *IsiSatu = new TEdit(this);
}Anda dapat meletakkan kode program dimana saja, tetapi saya terbiasa meletakkan di OnCreate milik form.
Setiap komponen di Windows selalu mempunyai kontainer, begitu juga dengan obyek IsiSatu ini, dia harus mempunyainya dengan menunjukkannya lewat properti parent.
void __fastcall TForm2::FormCreate(TObject *Sender)
{
TEdit *IsiSatu = new TEdit(this);
IsiSatu-Parent = this
}
Parent adalah penanggung jawab obyek yang menempatinya. Jika parent dihapus, maka anak-anak dari parent tersebut akan turut dihapus. Parent this menyatakan kalau parent dari IsiSatu adalah form itu sendiri.
Tugas belum selesai. Kita masih harus memberikan lebar, panjang, jarak dari atas, jarak dari kiri obyek IsiSatu.
void __fastcall TForm2::FormCreate(TObject *Sender)
{
TEdit *IsiSatu = new TEdit(this);
IsiSatu-Parent = this
IsiSatu->Top = 20;
IsiSatu->Left = 50;
IsiSatu->Height = 30;
IsiSatu->Width = 50;
}
Nah sekarang kita akan mencoba membuat dua TEdit lagi, yaitu IsiDua dan IsiTiga. Kemudian IsiSatu dan IsiDua kita isi dengan sebuah bilangan. IsiSatu kita isi dengan nilai 5, sedangkan IsiDua kita isi dengan 3.
IsiSatu->Text = '5';
IsiDua->Text = '3';
Perlu diingat, bahwa isi dari TEdit selalu bertipe data string. Jika Anda ingin melakukan operasi perkalian bilangan, Anda harus mengubahnya terlebih dahulu menjadi tipe bilangan. Pada program dibawah ini, saya akan mengubah tipe string IsiSatu dan IsiDua dengan integer dan mengubahnya kembali menjadi string karena hasil tersebut akan diletakkan di IsiTiga.
Program selengkapnya adalah:
void __fastcall TForm2::FormCreate(TObject *Sender)
{
TEdit *IsiSatu = new TEdit(this);
IsiSatu->Parent = this;
IsiSatu->Top = 20;
IsiSatu->Left = 50;
IsiSatu->Height = 30;
IsiSatu->Width = 50;
TEdit *IsiDua = new TEdit(this);
IsiDua->Parent = this;
IsiDua->Top = 60;
IsiDua->Left = 50;
IsiDua->Height = 30;
IsiDua->Width = 50;
TEdit *IsiTiga = new TEdit(this);
IsiTiga->Parent = this;
IsiTiga->Top = 100;
IsiTiga->Left = 50;
IsiTiga->Height = 30;
IsiTiga->Width = 50;
IsiSatu->Text = '5';
IsiDua->Text = '3';
IsiTiga->Text = IntToStr( StrToInt(IsiSatu->Text) * StrToInt(IsiDua->Text));
}
0 comments:
Posting Komentar