طيباوي
عدد المساهمات : 98 نقاط : 282 تاريخ التسجيل : 28/04/2015 الموقع : http://delph.forumalgerie.net
| موضوع: وضع كلمة السر في المشروع الأربعاء أبريل 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 . | |
|