تعامل مع النماذج المستعملة في المشروع
صفحة 1 من اصل 1 • شاطر
تعامل مع النماذج المستعملة في المشروع
تعامل مع النماذج المستعملة في المشروع
تتطلب بعض المشاريع عدة نماذج
وهذا مثال بسيط لتوضيح ذلك :
----------------------------
الوحدة الاولى
----------------------------
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.
تتطلب بعض المشاريع عدة نماذج
وهذا مثال بسيط لتوضيح ذلك :
----------------------------
الوحدة الاولى
----------------------------
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.
مواضيع مماثلة
» وضع كلمة السر في المشروع
» وضع كلمة السر في المشروع
» تعامل مع الرسائل في الدلفي
» تعامل مع الوسائط المتعدد في دلفي
» وضع كلمة السر في المشروع
» تعامل مع الرسائل في الدلفي
» تعامل مع الوسائط المتعدد في دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى