Gönderen Konu: Form Açılışına Şifre Koymak (Okunma sayısı 4255 defa)

Mikdad · « : 08 Kasım 2005 19:04:40 »

// Formun oncreate olayına...

procedure TForm1.FormCreate(Sender: TObject);
var
x,b:string;
begin
b:='Buraya şifre giriniz';
x:=inputbox('Programa Giriş','Programa girmek için şifreyi Giriniz:','');
if x=b then
application.messagebox('Programa Girişiniz Onaylandı.Tebrikler ..!','Tebrikler',mb_ok+mb_defbutton1)
else
halt;
end;
end.

meren2000 · « **Yanıtla #1 :** 22 Ağustos 2006 14:42:03 »

Bu kod hakkında ufak bir yorum, burada input ile şifreyi girilirken şifrenin ***** şeklinde görünmesini nasıl yapabilirim?

sevilya · « **Yanıtla #2 :** 22 Ağustos 2006 17:05:56 »

güzel soru bende cevap bekliyorum:)

Emre · « **Yanıtla #3 :** 22 Ağustos 2006 22:59:49 »

InputBox'ın şifre modunda kullanımına basit bir örnek:

Pas kodu:

Kod: [Seç]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    procedure InputBoxSifreli;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.InputBoxSifreli;
var
  hInputForm, hEdit, hButton: HWND;
begin
  hInputForm := Screen.ActiveForm.Handle;
  if (hInputForm <> 0) then
  begin
    hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
    SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  InputString: string;
begin
  InputString := InputBox('ŞİFRE PENCERESİ', 'Bir şifre giriniz', '');
  Form1.Caption := InputString;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  InputBoxSifreli;
  Timer1.Enabled := False;
end;

end.

Dfm kodu

Kod: [Seç]

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 32
    Top = 24
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 160
    Top = 32
  end
end

sevilya · « **Yanıtla #4 :** 24 Ağustos 2006 17:24:54 »

denedim ama password girişli olmadı..

kahraman0309 · « **Yanıtla #5 :** 11 Aralık 2006 15:00:54 »

bilgilerini paylaştığın için çok teşekkür ederim.

gokhanertastr · « **Yanıtla #6 :** 16 Nisan 2008 18:43:27 »

dostum editim propertieslerinde passwordchar diye bir özellik var o özelliğe * yazar ve enterlersen şifrenin girildiği yerdeki rakam, yazı vs * şeklinde çıkar...

barutali · « **Yanıtla #7 :** 27 Eylül 2009 02:00:39 »

@gokhanertastr doğru diyorsun Tedit Tdbedit gibi bileşenlerde senin dediğin gibi oluyor .. Ama inputbox ve inputquery de durum farklı ...

Kodbank İndir

Gönderen Konu: Form Açılışına Şifre Koymak (Okunma sayısı 4255 defa)

Mikdad

Form Açılışına Şifre Koymak

meren2000

Ynt: Form Açılışına Şifre Koymak

sevilya

Ynt: Form Açılışına Şifre Koymak

Emre

Ynt: Form Açılışına Şifre Koymak

sevilya

Ynt: Form Açılışına Şifre Koymak

kahraman0309

Ynt: Form Açılışına Şifre Koymak

gokhanertastr

Ynt: Form Açılışına Şifre Koymak

barutali

Ynt: Form Açılışına Şifre Koymak