+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : إنشاء مربع إدخال كلمة مرور بطريقة آمنة (/showthread.php?tid=236)
إنشاء مربع إدخال كلمة مرور بطريقة آمنة - مهدي - 28-05-2008
السلام عليكم و رحمة الله
أقدم اليوم مصدر مفتوح لطريقة إنشاء مربع إدخال كلمة مرور بشكل آمن، المثال يحتوى نموذجين 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 - 17-10-2010
السلام عليكم
شكرا لك أخي و جزاك الله كل خير و لكن لم افهم معنى طريقة البرمجة في مصدر المشروع
بالإضافة الى أنني طبقة الكود ولم يكن المطلوب و ظهر الفورم الأول فقط .
إقتباس :الكود التالي يمثل طريقة البرمجة في مصدر المشروعمع العلم أني أستعمل Delphi 7
و السلام عليكم و رحمة الله و بركاته.
إنشاء مربع إدخال كلمة مرور بطريقة آمنة - abdalrhman - 09-07-2011
جزاك الله خيراً لكن الكود لايعمل على الدلفي 7
إنشاء مربع إدخال كلمة مرور بطريقة آمنة - Lam.Abdeldjalil - 09-07-2011
السلام عليكم
إقتباس : جزاك الله خيراً لكن الكود لايعمل على الدلفي 7أي جزء بالتحديد ؟