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

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

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

----------------------------
الوحدة الاولى
----------------------------
unit untsj;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

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

var
Form1: TForm1;

implementation

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

{$R *.DFM}

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

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

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

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

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

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

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

end.
-----------------------------
الوحدة الثانية
-----------------------------
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

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

var
Form2: TForm2;

implementation

uses untsj;

{$R *.DFM}

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

procedure TForm2.Button1Click(Sender: TObject);
begin
// اغلاق النموذجالثاني
Form2.Close;
end;

end.
-------------------------------
الوحدة الثالثة
-------------------------------
unit Unit3;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

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

var
Form3: TForm3;

implementation

uses untsj;

{$R *.DFM}

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

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

end.
---------------------------------
الوحدة الرابعة
---------------------------------
unit Unit4;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

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

var
Form4: TForm4;

implementation

uses untsj;

{$R *.DFM}

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

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

end.
----------------------------
الوحدة الخامسة
----------------------------
unit Unit5;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

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

var
Form5: TForm5;

implementation

uses untsj;

{$R *.DFM}

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

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

end.
-------------------------------------
الوحدة السادسة
-------------------------------------
unit Unit6;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

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

var
Form6: TForm6;

implementation

uses untsj;

{$R *.DFM}

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

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

end.
----------------------------
الوحدة السابعة
----------------------------
unit Unit7;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

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

var
Form7: TForm7;

implementation

uses untsj;

{$R *.DFM}

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

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

end.

مشكوووووووووووووور