Jumat, 30 September 2016

Cara Membuat Password Char dan Show Hide Edit di Delphi (CMD Bitvise)

Jum'at , 30 September 2016 - www.indoblog.me Kali ini Mimin Hanya Mau shareing Tentang Cara Membuat Password Char dan Show Hide Edit di Delphi (CMD Bitvise) Terbaru 2016, tutorial ini lebih tepatnya adalah kelanjutan dari tutorial sebelumnya yaitu Contoh Kode Program Save Edit Otomatis di Delphi oke dan yang dimana bagi anda yang kebetulan ingin membuat kode program agar setiap teks yang tertulis pada edit bisa menjadi bintang saat program di jalankan atau lebih tepatnya ketika tombol/button dijalankan dan contohnya bisa anda lihat pada gambar dibawah ini saja.

Tutorial Dasar Pemograman Pascal dan Delphi Berbahasa Indonesia

Dan jika anda perhatikan pada gambar diatas maka setiap input text di komponen edit akan berubah menjadi bintang dan silahkan langsung saja buka project anda yang sudah dibuat sebelumnya, dan saya asumsikan bahwa di project anda ada 7 Edit kemudian silahkan langsung saja klik tombol/Button1 , dan pastikan anda mengikuti tutorial ini sebelumnya agar tidak salah dalam mengisikan kodenya dan dibawah ini saya berikan kode lengkapnya saja silahkan dipelajari.

Tutorial Dasar Pemograman Pascal dan Delphi Berbahasa Indonesia

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = 'Login' then begin
    Button1.Caption := 'Stop';
    openbitvise;
    openproxifier;
    Button2.Click;
    Edit1.PasswordChar := '*';
    Edit2.PasswordChar := '*';
    Edit3.PasswordChar := '*';
    Edit4.PasswordChar := '*';
    Edit5.PasswordChar := '*';
    Edit6.PasswordChar := '*';
    Edit1.Enabled:=False;
    Edit2.Enabled:=False;
    Edit3.Enabled:=False;
    Edit4.Enabled:=False;
    Edit5.Enabled:=False;
    Edit6.Enabled:=False;
    ComboBox1.Enabled:=False;
  end else
  begin
   closebitvise;
   closeproxifier;
   Edit1.PasswordChar := #0;
    Edit2.PasswordChar := #0;
    Edit3.PasswordChar := #0;
    Edit4.PasswordChar := #0;
    Edit5.PasswordChar := #0;
    Edit6.PasswordChar := #0;
    Edit1.Enabled:=True;
    Edit2.Enabled:=True;
    Edit3.Enabled:=True;
    Edit4.Enabled:=True;
    Edit5.Enabled:=True;
    Edit6.Enabled:=True;
    ComboBox1.Enabled:=True;
    Button1.Caption := 'Login';
  end;
end;

Jika sebelumnya anda mengikuti tutorial ini maka akan ditemukan kesamaan dari kode kode diatas tetapi yang terpenting dari pembuatan password char adalah perhatikan tanda * dan #0 dan silahkan dipelajari atau di teliti dan perhatikan kembali perbedaannya setidaknya anda paham cara penempatan dari posisinya saja.

Baca Juga: Cara Membaca dan Menulis Ulang Registry System Windows Dengan Delphi

Ok Guys sekian tutorial tentang Cara Membuat Password Char dan Show Hide Edit di Delphi (CMD Bitvise) Terbaru 2016 semoga bermanfaat dan membantu dan wassalam, "happy coding". :D


EmoticonEmoticon