Misal program yang akan kalian buat seperti gambar ini:
 |
| FormMasuk |
Rencananya, kalau kita memasukkan username dan passwordnya
benar, maka form tersebut akan close, sedangkan apabila salah, masuk ke
FormSorry.
Catatan: Formnya bebas, mau pake form lainnya atau engga itu
pilihan teman-teman, ini salah satu alternative saja. (punya saya)
Nah, pertanyaannya gimana caranya membuat lebih dari satu
form dalam satu aplikasi?
Caranya:
1.
Klik menubar file -> New -> Form
2.
Beri nama form tersebut untuk memudahkan
pemrogaman gabungan
Kemudian, psedo code untuk form utama gimana yah?
Berdasarkan contoh tugas besar prokom, form selanjutnya akan
terbuka ketika username sama dengan passwordnya, maka:
procedure TFormMasuk.Button1Click(Sender: TObject);
var a,b:string;
begin
a:=edit1.text;
b:=edit2.text;
if a=b then
FormMasuk.close
else
FormSorry.Show;
end;
Perhatikan:
Untuk membuka form baru ketika kita mengklik button,
rumusnya adalah FormXXX.Show serta ketika kita ingin mengclose form tsb,
rumusnya FormXXX.Close
Nah biasanya setelah kita memasukkan rumus tersebut lalu
mengklik RUN, ada pesan jendela yg muncul mengenai ‘using unit’ yg terkait,
klik ok saja ya.
Kemudian, gimana nih biar input ke passwordnya jadi hiden
gitu, alias jadi symbol bintang gitu yah?
Caranya:
1.
Klik 1x saja pada item edit yg dijadikan input
password
2.
Masuk ke menu properties yang ada di sebelah
kiri layar anda
3.
Cari PasswordChar
lalu isi dengan tanda bintang ‘*’
Cara untuk insert gambar ke form kita:
1.
Buat canvas di form kita
2.
Lalu masuk ke menu properties yang ada di
sebelah kiri layar anda
3.
Cari picture
, klik, lalu load gambar yg ada inginkan, lalu klik ok
Semoga bermanfaat.
Kalo kurang jelas komen aja yaaaah J
Tidak ada komentar:
Posting Komentar
Silakan meninggalkan komentar ^_^