28-05-2008, 09:25 PM
السلام عليكم و رحمة الله
أقدم اليوم مصدر مفتوح لطريقة إنشاء مربع إدخال كلمة مرور بشكل آمن، المثال يحتوى نموذجين form1 و هو النموذج الرئيسي و النموذج form2 و هو المربع إدخال كلمة المرور
الكود التالي يمثل محتوى مصدر نموذج مربع الإدخال
الكود التالي يمثل طريقة البرمجة في مصدر المشروع
المثال في المرفقات
أقدم اليوم مصدر مفتوح لطريقة إنشاء مربع إدخال كلمة مرور بشكل آمن، المثال يحتوى نموذجين 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.
من تشبه بقوم فهو منهم