Wednesday, 18 January 2017T1/18/2017 09:53:00 pm

MEMBUAT SHOW / HIDE KARAKTER PASSWORD LOGIN DI DELPHI

Salam blogger…pada artikel saya kali ini saya akan share cara mudah show / hide password login di Delphi. Pada umumnya dalam membuat form login di Delphi terdapat inputan pada edit text yaitu username dan password, dan biasanya pada inputan password karakter yang digunakan tidak terlihat dan menggunkan symbol bintang atau bulatan hitam saja. Contohnya misalnya adalah pada kolom login facebook yang mana pada inputan passwordnya menggunkan symbol bulatan kecil berwarna hitam ketika karakter di masukan. Pada Delphi tentunya hal tersebut dapat kita terapkan atau kita buat. Cara membuatnya pun cukup mudah, kita hanya perlu mengganti  property pada passwordchar. Maka hasil form login yang sudah diganti passwordcharnya dapat dilihat pada gambar dibawah ini.
Kali ini saya akan menjelaskan langkah – langkah cara sederhana mengganti passwordchar pada edit text yang kita gunakan saat menginputkan password pada folm login. Pertama – tama yang harus kita lakukan adalah membuat sebuah project baru pada Delphi sobat. Selanjutnya pada form loginnya desain tampilannya sesuai dengan gambar dibawah ini, kali ini kita akan membuat program form login yang sederhana, sobat dapat mengembangkannya sendiri.
Adapun komponen yang diperlukan adalah sebagai berikut :
 - 1 buah panel
 - 2 buah label
 - 2 buah edit text
 - 1 buah check box
 - 2 buah button
Selanjutnya klik pada komponen edit text 2, lalu masuk ke object inspector dan ganti passwordchar dengan mengisi tanda *. Jika sudah kita tinggal menambah sedikit kode program pada form tersebut agar dapat dijalankan. Masukan Source kode berikut pada form login yang sudah sobat buat, sesuaikan penempatanya kodingnya dengan fungsi yang akan dijalankan. Source code nya adalah sebagai berikut :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
  begin
  edit2.PasswordChar:=#0;
  end
 else
  begin
   edit2.PasswordChar:='*';
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption := 'Login';
Form1.Position := poDesktopCenter;
Label1.Caption := 'User Name';
Label2.Caption := 'Password';
Edit1.Text := '';
Edit2.Text := '';
Edit2. PasswordChar := '*';
Button1.Caption := 'OK';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If (Edit1.Text = 'admin') And (Edit2.Text = '123456') then
MessageDlg('Welcome My Application', mtInformation,
[mbOK], 0)
Else
MessageDlg('User Name and Password Salah', mtError,
[mbOK], 0);
end;
end.

Jika sudah source code nya dimasukan, nah sekarang coba sobat jalankan program nya dengan cara menekan F9/Run, dan isi inputan data username dan passwordnya, dan lihat hasilnya, demikian postingan saya tentang cara membuat show / hide karakter password pada form login Delphi yang dapat saya share kali ini, semoga dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "MEMBUAT SHOW / HIDE KARAKTER PASSWORD LOGIN DI DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status