pr2501
asked on
****** and not characters into password TEdit
I have two code from. Ā Pleas put them together so when i will type character into password TEdit
"**********" will come out?
"**********" will come out?
// ******************* pasword
procedure TForm2.InputBoxSetPasswordChar(var Msg: TMessage);
var
hInputForm, hEdit, hButton: HWND;
begin
hInputForm := Screen.Forms[0].Handle;
if (hInputForm <> 0) then
begin
hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
// Change button text:
hButton := FindWindowEx(hInputForm, 0, 'TButton', nil);
SendMessage(hButton, WM_SETTEXT, 0, Integer(PChar('Cancel')));
SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
end;
end;
unit password;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm3 = class(TForm)
Login: TEdit;
password: TEdit;
Label1: TLabel;
Label2: TLabel;
OKBtn: TButton;
CancelBtn: TButton;
procedure CancelBtnClick(Sender: TObject);
procedure OKBtnClick(Sender: TObject);
function CheckPassword: Boolean;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
passwordtext:string;
i:integer=1;
implementation
uses machine, mirna10;
{$R *.dfm}
type
TUserID = record
Login: string;
Password: string;
end;
const
CUserID: array[0..4] of TUserID = (
(Login: 'i'; Password: '1'),
(Login: 'iv'; Password: '2'),
(Login: 'iva'; Password: '3'),
(Login: 'ivan'; Password: '4'),
(Login: 'ivang'; Password: '5')
);
function TForm3.CheckPassword: Boolean;
var
PasswordDlg: Tform3;
begin
PasswordDlg := Tform3.Create(Application);
try
Result := PasswordDlg.ShowModal = mrOk;
finally
FreeAndNil(PasswordDlg);
end;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
end;
procedure Tform3.OKBtnClick(Sender: TObject);
var
I: Integer;
ID: TUserID;
begin
ModalResult := mrNone;
for I := 0 to Length(CUserID) - 1 do
begin
if (UpperCase(Login.Text) = UpperCase(CUserID[I].Login)) and
(Password.Text = CUserID[I].Password) then
begin
Form1.Timer1.Enabled:=true;
ModalResult := mrOk;
//passwordtext:=login.Text;
loginmy:= login.Text;
okpassword:=true;
form1.timer1.Enabled:=true;
Str := DateTimeToStr(Now)+' '+ loginmy; // aloud writing procedure
end;
end;
if ModalResult <> mrOk then
MessageBox(Handle, 'Invalid user name or password!', 'Login', MB_OK);
end;
procedure Tform3.CancelBtnClick(Sender: TObject);
begin
ModalResult := mrCancel;
end;
end.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER