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

اذهب الى الأسفل

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

مُساهمة  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

عدد المساهمات : 364
تاريخ التسجيل : 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
مبرمج مجتهد

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

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

الرجوع الى أعلى الصفحة


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