الانتقال الى المشاركة

Primary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Secondary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Pattern: Blank Waves Squares Notes Sharp Wood Rockface Leather Honey Vertical Triangles
مرحبا بك في منتديات ابن خلدون التعليمية

أهلا وسهلا بك زائرنا الكريم، و يشرفنا أن تقوم بالتسجيل إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


تسجيل الدخول التسجيل الآن



صورة

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


  • لا تستطيع كتابة موضوع جديد
  • من فضلك قم بتسجيل دخولك لتتمكن من الرد
لا توجد ردود على هذا الموضوع

#1
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 42 المشاركات
  • البلد: Country Flag

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

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

----------------------------
الوحدة الاولى
----------------------------
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.

 

 

 

 

 

 


:D

دلفي تعليم

http://delph.forumalgerie.net

 





عدد المتواجدون الآن فى الموضوع : 0

0 الأعضاء, 0 الزوار, 0 الأعضاء المجهولين