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

تعامل مع النماذج المستعملة في المشروع

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

تعامل مع النماذج المستعملة في المشروع

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

تعامل مع النماذج المستعملة في المشروع
تتطلب بعض المشاريع عدة نماذج

وهذا مثال بسيط لتوضيح ذلك :


----------------------------
الوحدة الاولى
----------------------------
الرمز:

unit untsj; // delph.forumalgerie.net

interface

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

type
TForm1 = class(TForm) // delph.forumalgerie.net
Button1: TButton; // delph.forumalgerie.net
Button2: TButton; // delph.forumalgerie.net
Button3: TButton; // delph.forumalgerie.net
Button4: TButton; // delph.forumalgerie.net
Button5: TButton; // delph.forumalgerie.net
Button6: TButton; // delph.forumalgerie.net
Button7: TButton; // delph.forumalgerie.net
procedure Button1Click(Sender: TObject); // delph.forumalgerie.net
procedure Button2Click(Sender: TObject); // delph.forumalgerie.net
procedure Button3Click(Sender: TObject); // delph.forumalgerie.net
procedure Button4Click(Sender: TObject); // delph.forumalgerie.net
procedure Button5Click(Sender: TObject); // delph.forumalgerie.net
procedure Button6Click(Sender: TObject); // delph.forumalgerie.net
procedure Button7Click(Sender: TObject); // delph.forumalgerie.net
private
{ Déclarations privées } // delph.forumalgerie.net
public
{ Déclarations publiques } // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

implementation

// نماذج المستغملة في المشروع
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7; // delph.forumalgerie.net

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

procedure TForm1.Button1Click(Sender: TObject);
begin
// اظهار النموذج الثاني
Form2.Show; // delph.forumalgerie.net
// اخفاء النموذج الاول
Form1.Hide; // delph.forumalgerie.net
end;

procedure TForm1.Button2Click(Sender: TObject); // delph.forumalgerie.net
begin
// اظهار النموذج الثالث
Form3.Show; // delph.forumalgerie.net
// اخفاء النموذج الاول
Form1.Hide; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Button3Click(Sender: TObject); // delph.forumalgerie.net
begin
// اظهار النموذج الرابع
Form4.Show; // delph.forumalgerie.net
// اخفاء النموذج الاول
Form1.Hide; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Button4Click(Sender: TObject); // delph.forumalgerie.net
begin
// اظهار النموذج الخامس
Form5.Show; // delph.forumalgerie.net
// اخفاء النموذج الاول
Form1.Hide; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Button5Click(Sender: TObject); // delph.forumalgerie.net
begin
// اظهار النموذج السادس
Form6.Show; // delph.forumalgerie.net
// اخفاء النموذج الاول
Form1.Hide; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Button6Click(Sender: TObject); // delph.forumalgerie.net
begin
// اظهار النموذج السابع
Form7.Show; // delph.forumalgerie.net
// اخفاء النموذج الاول
Form1.Hide; // delph.forumalgerie.net
end; // delph.forumalgerie.net

procedure TForm1.Button7Click(Sender: TObject); // delph.forumalgerie.net
begin
// اغلاق البرنامج
Close; // delph.forumalgerie.net
end; // delph.forumalgerie.net

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
procedure FormClose(Sender: TObject; var Action: TCloseAction); // delph.forumalgerie.net
procedure Button1Click(Sender: TObject); // delph.forumalgerie.net
private
{ Déclarations privées } // delph.forumalgerie.net
public
{ Déclarations publiques } // delph.forumalgerie.net
end; // delph.forumalgerie.net

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

implementation

uses untsj; // 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
// اغلاق النموذجالثاني
Form2.Close; // delph.forumalgerie.net
end; // delph.forumalgerie.net

end. // delph.forumalgerie.net
-------------------------------
الوحدة الثالثة
-------------------------------
الرمز:

unit Unit3; // delph.forumalgerie.net

interface

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

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

var
Form3: TForm3; // delph.forumalgerie.net

implementation

uses untsj; // delph.forumalgerie.net

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

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

procedure TForm3.Button1Click(Sender: TObject); // delph.forumalgerie.net
begin
// اغلاق النموذج الثالث
Form3.Close; // delph.forumalgerie.net
end; // delph.forumalgerie.net

end. // delph.forumalgerie.net
---------------------------------
الوحدة الرابعة
---------------------------------
الرمز:

unit Unit4; // delph.forumalgerie.net

interface

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

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

var
Form4: TForm4; // delph.forumalgerie.net

implementation

uses untsj; // delph.forumalgerie.net

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

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

procedure TForm4.Button1Click(Sender: TObject); // delph.forumalgerie.net
begin
// اغلاق النموذج الرابع
Form4.Close; // delph.forumalgerie.net
end; // delph.forumalgerie.net

end. // delph.forumalgerie.net
----------------------------
الوحدة الخامسة
----------------------------
الرمز:

unit Unit5; // delph.forumalgerie.net

interface

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

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

var
Form5: TForm5; // delph.forumalgerie.net

implementation

uses untsj; // delph.forumalgerie.net

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

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

procedure TForm5.Button1Click(Sender: TObject); // delph.forumalgerie.net
begin
// اغلاق النموذج الخامس
Form5.Close; // delph.forumalgerie.net
end; // delph.forumalgerie.net

end. // delph.forumalgerie.net
-------------------------------------
الوحدة السادسة
-------------------------------------
الرمز:

unit Unit6; // delph.forumalgerie.net

interface

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

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

var
Form6: TForm6; // delph.forumalgerie.net

implementation

uses untsj; // delph.forumalgerie.net

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

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

procedure TForm6.Button1Click(Sender: TObject); // delph.forumalgerie.net
begin
// اغلاق النموذج السادس
Form6.Close; // delph.forumalgerie.net
end; // delph.forumalgerie.net

end. // delph.forumalgerie.net
----------------------------
الوحدة السابعة
----------------------------
الرمز:

unit Unit7; // delph.forumalgerie.net

interface

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

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

var
Form7: TForm7; // delph.forumalgerie.net

implementation

uses untsj; // delph.forumalgerie.net

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

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

procedure TForm7.Button1Click(Sender: TObject); // delph.forumalgerie.net
begin
// اغلاق النموذج السابع
Form7.Close; // delph.forumalgerie.net
end; // delph.forumalgerie.net

end. // delph.forumalgerie.net


منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net


عدل سابقا من قبل mah11 في 24/5/2015, 11:44 am عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

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

http://delph.forumalgerie.net

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

رد: تعامل مع النماذج المستعملة في المشروع

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

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

sad13
مبرمج

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

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

رد: تعامل مع النماذج المستعملة في المشروع

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

بارك الله فيك

sdk11
مبرمج مجتهد

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

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

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


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