إنشاء مربع إدخال كلمة مرور بطريقة آمنة

[مهدي]

السلام عليكم و رحمة الله

أقدم اليوم مصدر مفتوح لطريقة إنشاء مربع إدخال كلمة مرور بشكل آمن، المثال يحتوى نموذجين form1 و هو النموذج الرئيسي و النموذج form2 و هو المربع إدخال كلمة المرور
الكود التالي يمثل محتوى مصدر نموذج مربع الإدخال


unit Unit2;

interface

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

type
TForm2 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Déclarations privées }
public
class function Execute : boolean;
end;

var
Form2: TForm2;

implementation

{$R *.DFM}

class function TForm2.Execute: boolean;
begin
with TForm2.Create(nil) do
try
Result := ShowModal = mrOk;
finally
Free;
end;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text='123' then
ModalResult := mrOK
else ModalResult := mrAbort;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.

الكود التالي يمثل طريقة البرمجة في مصدر المشروع


program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

begin
Application.Initialize;
if TForm2.Execute then
begin
Application.CreateForm(TForm1, Form1);
end;
Application.Run;
end.
المثال في المرفقات

[mjunior]

السلام عليكم
شكرا لك أخي و جزاك الله كل خير و لكن لم افهم معنى طريقة البرمجة في مصدر المشروع
بالإضافة الى أنني طبقة الكود ولم يكن المطلوب و ظهر الفورم الأول فقط .
الكود التالي يمثل طريقة البرمجة في مصدر المشروع
مع العلم أني أستعمل Delphi 7
و السلام عليكم و رحمة الله و بركاته.

[abdalrhman]

جزاك الله خيراً لكن الكود لايعمل على الدلفي 7

[Lam.Abdeldjalil]

السلام عليكم

جزاك الله خيراً لكن الكود لايعمل على الدلفي 7 أي جزء بالتحديد ؟