دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

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

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

مُساهمة  mah11 في 5/8/2013, 8:13 pm

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

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

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

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


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

unit Unit1;  //  delph.forumalgerie.net

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;  //  delph.forumalgerie.net

type
TForm1 = class(TForm)  //  delph.forumalgerie.net
Edit1: TEdit;  //  delph.forumalgerie.net
Button1: TButton;  //  delph.forumalgerie.net
Label1: TLabel;  //  delph.forumalgerie.net
procedure FormCreate(Sender: TObject);  //  delph.forumalgerie.net
procedure Button1Click(Sender: TObject);  //  delph.forumalgerie.net
procedure Edit1KeyPress(Sender: TObject; var Key: Char);  //  delph.forumalgerie.net
private
public

end;  //  delph.forumalgerie.net

var
Form1: TForm1;  //  delph.forumalgerie.net

implementation

uses Unit2;  //  delph.forumalgerie.net

{$R *.DFM}  //  delph.forumalgerie.net

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

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

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

end.  //  delph.forumalgerie.net
---------------------------
الوحدة الثانية
---------------------------
الكود:

unit Unit2;  //  delph.forumalgerie.net

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;  //  delph.forumalgerie.net

type
TForm2 = class(TForm)  //  delph.forumalgerie.net
Button1: TButton;  //  delph.forumalgerie.net
Label1: TLabel;  //  delph.forumalgerie.net
procedure FormClose(Sender: TObject; var Action: TCloseAction);  //  delph.forumalgerie.net
procedure Button1Click(Sender: TObject);  //  delph.forumalgerie.net
procedure FormCreate(Sender: TObject);  //  delph.forumalgerie.net
private
public

end;  //  delph.forumalgerie.net

var
Form2: TForm2;  //  delph.forumalgerie.net

implementation

uses Unit1;  //  delph.forumalgerie.net

{$R *.DFM}  //  delph.forumalgerie.net

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

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

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

end.  //  delph.forumalgerie.net


تابع الموضوع على الرابط التالي

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

وهو كتكملة للموضوع هذا


.



mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  sad13 في 8/1/2014, 9:00 pm

مشكـــــور على الموضـــــوع.................

sad13
مبرمج

عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  sdk11 في 13/6/2015, 9:13 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 109
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  alla في 14/6/2015, 11:38 am

وفيـــك بركة

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

alla
مبرمج مجتهد

عدد المساهمات : 726
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى