وضع كلمة السر في المشروع
صفحة 1 من اصل 1 • شاطر
وضع كلمة السر في المشروع
وضع كلمة السر في المشروع
بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله
كيف تضع كلمة مرور الى مشروعك
وضع كلمة السر في المشروع بالدلفي خمسة
-------------------------------------
الوحدة الاولى
-------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := 'أدخل كلمة المرور';
Edit1.Text := '';
Button1.Caption := 'موافق';
Form1.Caption := 'كلمة المرور';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '1954' then
begin
Form2.Show; // or Form1.ShowModal;
Form1.Hide;
end
else ShowMessage('كلمة المرور خاطئة');
Edit1.Text := '';
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then Button1Click(Sender);
end;
end.
--------------------------------------
الوحدة الثانية
--------------------------------------
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// اظهار النموذج الاول
Form1.Show;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
// خروج من البرنامج
Application.Terminate;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
// اغلاق البرنامج
Button1.Caption := 'خروج من البرنامج';
Form2.Caption := 'واجهة المشروع';
Label1.Caption := 'هذا مشروعي مرحبا بكم';
end;
end.
بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله
كيف تضع كلمة مرور الى مشروعك
وضع كلمة السر في المشروع بالدلفي خمسة
-------------------------------------
الوحدة الاولى
-------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := 'أدخل كلمة المرور';
Edit1.Text := '';
Button1.Caption := 'موافق';
Form1.Caption := 'كلمة المرور';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '1954' then
begin
Form2.Show; // or Form1.ShowModal;
Form1.Hide;
end
else ShowMessage('كلمة المرور خاطئة');
Edit1.Text := '';
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then Button1Click(Sender);
end;
end.
--------------------------------------
الوحدة الثانية
--------------------------------------
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// اظهار النموذج الاول
Form1.Show;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
// خروج من البرنامج
Application.Terminate;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
// اغلاق البرنامج
Button1.Caption := 'خروج من البرنامج';
Form2.Caption := 'واجهة المشروع';
Label1.Caption := 'هذا مشروعي مرحبا بكم';
end;
end.
مواضيع مماثلة
» وضع كلمة السر في المشروع
» تعامل مع النماذج المستعملة في المشروع
» كتابة جملة أو كلمة على الفورم
» كيفية نطق كلمة أو جملة في الدلفي
» تعامل مع النماذج المستعملة في المشروع
» كتابة جملة أو كلمة على الفورم
» كيفية نطق كلمة أو جملة في الدلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى