تعامل مع النماذج المستعملة في المشروع
3 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
تعامل مع النماذج المستعملة في المشروع
تعامل مع النماذج المستعملة في المشروع
تتطلب بعض المشاريع عدة نماذج
وهذا مثال بسيط لتوضيح ذلك :
----------------------------
الوحدة الاولى
----------------------------
-----------------------------
الوحدة الثانية
-----------------------------
-------------------------------
الوحدة الثالثة
-------------------------------
---------------------------------
الوحدة الرابعة
---------------------------------
----------------------------
الوحدة الخامسة
----------------------------
-------------------------------------
الوحدة السادسة
-------------------------------------
----------------------------
الوحدة السابعة
----------------------------
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
تتطلب بعض المشاريع عدة نماذج
وهذا مثال بسيط لتوضيح ذلك :
----------------------------
الوحدة الاولى
----------------------------
- الكود:
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 مرات (السبب : تصحيح بعض المعلومات)
رد: تعامل مع النماذج المستعملة في المشروع
مشكـــــور على الموضـــــوع.................
sad13- مبرمج
- عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014
رد: تعامل مع النماذج المستعملة في المشروع
بارك الله فيك
sdk11- مبرمج مجتهد
- عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014
مواضيع مماثلة
» تعامل مع الوسائط المتعدد في دلفي
» تعامل مع XML من خلال c#
» تعامل مع الملفات بباسكال
» المصفوفات تعامل معهم في لغة جو Go
» المصفوفات تعامل معهم في لغة جو Go
» تعامل مع XML من خلال c#
» تعامل مع الملفات بباسكال
» المصفوفات تعامل معهم في لغة جو Go
» المصفوفات تعامل معهم في لغة جو Go
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى