منتدى متعدد المهام
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  أحدث الصورأحدث الصور  التسجيلالتسجيل  دخولدخول  

 

 وضع كلمة السر في المشروع

اذهب الى الأسفل 
كاتب الموضوعرسالة
طيباوي




عدد المساهمات : 98
نقاط : 282
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

وضع كلمة السر في المشروع Empty
مُساهمةموضوع: وضع كلمة السر في المشروع   وضع كلمة السر في المشروع Icon_minitimeالأربعاء أبريل 29, 2015 6:03 am

وضع كلمة السر في المشروع

بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله

كيف تضع كلمة مرور الى مشروعك

وضع كلمة السر في المشروع بالدلفي خمسة

-------------------------------------
الوحدة الاولى
-------------------------------------


الكود:

unit Unit1; //  delphi

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit; //  delphi
Button1: TButton; //  delphi
Label1: TLabel; //  delphi
procedure FormCreate(Sender: TObject); //  delphi
procedure Button1Click(Sender: TObject); //  delphi
procedure Edit1KeyPress(Sender: TObject; var Key: Char); //  delphi
private
{ Déclarations privées } //  delphi
public
{ Déclarations publiques } //  delphi
end;

var
Form1: TForm1; //  delphi

implementation

uses Unit2; //  delphi

{$R *.DFM} //  delphi

procedure TForm1.FormCreate(Sender: TObject); //  delphi
begin
 Label1.Caption := 'أدخل كلمة المرور';
 Edit1.Text := '';
 Button1.Caption := 'موافق';
 Form1.Caption := 'كلمة المرور';
end; //  delph.forumalgerie.net

procedure TForm1.Button1Click(Sender: TObject); //  delphi
begin
 if Edit1.Text = '1954' then
 begin
  Form2.Show; // or Form1.ShowModal; //  delphi
  Form1.Hide; //  delphi
 end
 else ShowMessage('كلمة المرور خاطئة');
   Edit1.Text := ''; //  delphi
end;  //  delph.forumalgerie.net

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); //  delphi
begin
 if key = #13 then Button1Click(Sender); //  delphi
end;  //  delph.forumalgerie.net

end.  //  delph.forumalgerie.net


--------------------------------------
الوحدة الثانية
--------------------------------------


الكود:

unit Unit2;  //  delph.forumalgerie.net

interface

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

type
TForm2 = class(TForm)  //  delph.forumalgerie.net
Button1: TButton; //  delphi
Label1: TLabel; //  delphi
procedure FormClose(Sender: TObject; var Action: TCloseAction); //  delphi
procedure Button1Click(Sender: TObject); //  delphi
procedure FormCreate(Sender: TObject); //  delphi
private
{ Déclarations privées } //  delphi
public
{ Déclarations publiques } //  delphi
end; //  delph.forumalgerie.net

var
Form2: TForm2; //  delphi

implementation

uses Unit1; //  delphi

{$R *.DFM} //  delphi

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); //  delphi
begin
// اظهار النموذج الاول
 Form1.Show; //  delphi
end; //  delph.forumalgerie.net

procedure TForm2.Button1Click(Sender: TObject); //  delphi
begin
// خروج من البرنامج
 Application.Terminate; //  delphi
end; //  delph.forumalgerie.net

procedure TForm2.FormCreate(Sender: TObject); //  delph.forumalgerie.net
begin
// اغلاق البرنامج
 Button1.Caption := 'خروج من البرنامج';
 Form2.Caption := 'واجهة المشروع';
 Label1.Caption := 'هذا مشروعي مرحبا بكم';
end; //  delphi

end. //  delph.forumalgerie.net

-------------------

لمزيد من المعلومات المنتدى
delph.forumalgerie.net

.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
 
وضع كلمة السر في المشروع
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» وضع كلمة السر في مشروع دلفي بدون تغيير
» كلمة مرور مشاريع دلفي
» كيفية وضع كلمة سر لمشروع دلفي
» كتابة جملة أو كلمة على الفورم
» كيفية نطق كلمة أو جملة في الدلفي

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: