July 21, 2024

Membuat Window Login Pada Delphi Berbentuk Apel

2 min read

Manipulasi bentuk window dilakukan untuk dapat menghasilkan bentuk window yang unik, menarik, dan cantik. Window adalah tempat dimana semua komponen dari aplikasi kita berada, sehingga dengan mempercantik sebuah window diharapkan akan memberikan cita rasa yang lebih pada keindahan tampilan aplikasi kita.

Langkah-langkah Membuat Tampilan Window berbentuk Apel :

Langkah 1

Buka Delphi 2007.

Langkah 2

Klik Menu File > New > Pilih VCL Form Application.

Langkah 3

Ketik Perintah berikut pada Event OnCreate :

[sourcecode]

Variabel:= CreateRoundRectRgn(x1, y1, x2, y2, tinggi_apel, lebar_apel);

[/sourcecode]

Keterangan :

  • Variabel didefinisikan bertipe HRGN
  • x1 adalah koordinat-x pojok kiri atas apel
  • y1 adalah koordinat-y pojok kiri atas apel
  • x2 adalah koordinat-x pojok kanan bawah apel
  • y2 adalah koordinat-y pojok kanan bawah apel
  • Tinggi_apel adalah Tinggi dari apel
  • Lebar_apel adalah lebar dari apel

[sourcecode]

procedure TForm1.FormCreate(Sender: TObject);

var

apel : hrgn;

begin

apel:=CreateRoundRectRgn(40,60,300,300,200,300);

SetWindowRgn(Handle,apel,True);

DeleteObject(apel);

end;

[/sourcecode]

Langkah 4

Mengatur Background Apel :

  • Letakkan komponen TImage pada Form1
  • Atur komponen TImage pada properties pada Object Inspector sebagai berikut :
No Properties Keterangan
1. Picture Load gambar yang akan dijadikan background
2. Strecth : True stretch true berfungsi agar gambar tampil semua sesuai dengan ukuran yang diatur pada komponen TImage.

Langkah 5

Letakkan komponen label, edit, dan button pada Form1 :

  No Properties Keterangan

1.

Label 1 Caption : Login Admin
Name     : lbl_judul

2.

Label 2 Caption : User Name
Name     : lbl_user

3.

Label 3 Caption : Password
Name     : lbl_pass
PasswordChar : *

4.

Button 1 Caption : Login
Name     : BtnLogin

5.

Button 2 Caption : Close
Name     : BtnClose

Langkah 6

Ketik Perintah berikut pada Button Login :

[sourcecode]

procedure TForm1.BtnLoginClick(Sender: TObject);

begin

if(User.Text = ‘Admin’) and  (Pass.Text = ‘123456’) then

Begin

Form2.Show;

End

else

begin

MessageDlg(‘ID atau password salah’, MTWarning, [MBOK], 0);

Exit;

end;

end;

[/sourcecode]

Langkah 7

Ketik Perintah berikut pada Button Close :

[sourcecode]

procedure TForm1.BtnCloseClick(Sender: TObject);

begin

close;

end;

[/sourcecode]

Langkah 8

Hasil Akhir.

0 thoughts on “Membuat Window Login Pada Delphi Berbentuk Apel

Leave a Reply

Your email address will not be published. Required fields are marked *

Copyright © All rights reserved. | Newsphere by AF themes.