|
منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل... |
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
تعامل مع النماذج المستعملة في المشروع
|
أدوات الموضوع | انواع عرض الموضوع |
2016-09-13, 10:13 | رقم المشاركة : 1 | ||||
|
تعامل مع النماذج المستعملة في المشروع
تعامل مع النماذج المستعملة في المشروع كود:
unit untsj;{ djelfa.info/vb } interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;{ djelfa.info/vb } type TForm1 = class(TForm) Button1: TButton;{ djelfa.info/vb } Button2: TButton;{ djelfa.info/vb } Button3: TButton;{ djelfa.info/vb } Button4: TButton;{ djelfa.info/vb } Button5: TButton;{ djelfa.info/vb } Button6: TButton;{ djelfa.info/vb } Button7: TButton;{ djelfa.info/vb } procedure Button1Click(Sender: TObject);{ djelfa.info/vb } procedure Button2Click(Sender: TObject);{ djelfa.info/vb } procedure Button3Click(Sender: TObject);{ djelfa.info/vb } procedure Button4Click(Sender: TObject);{ djelfa.info/vb } procedure Button5Click(Sender: TObject);{ djelfa.info/vb } procedure Button6Click(Sender: TObject);{ djelfa.info/vb } procedure Button7Click(Sender: TObject);{ djelfa.info/vb } private { Déclarations privées } public { Déclarations publiques } end;{ djelfa.info/vb } var Form1: TForm1;{ djelfa.info/vb } implementation // نماذج المستغملة في المشروع uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;{ djelfa.info/vb } {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);{ djelfa.info/vb } begin // اظهار النموذج الثاني Form2.Show;{ djelfa.info/vb } // اخفاء النموذج الاول Form1.Hide;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm1.Button2Click(Sender: TObject);{ djelfa.info/vb } begin // اظهار النموذج الثالث Form3.Show;{ djelfa.info/vb } // اخفاء النموذج الاول Form1.Hide;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm1.Button3Click(Sender: TObject);{ djelfa.info/vb } begin // اظهار النموذج الرابع Form4.Show;{ djelfa.info/vb } // اخفاء النموذج الاول Form1.Hide;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm1.Button4Click(Sender: TObject);{ djelfa.info/vb } begin // اظهار النموذج الخامس Form5.Show;{ djelfa.info/vb } // اخفاء النموذج الاول Form1.Hide;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm1.Button5Click(Sender: TObject);{ djelfa.info/vb } begin // اظهار النموذج السادس Form6.Show;{ djelfa.info/vb } // اخفاء النموذج الاول Form1.Hide;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm1.Button6Click(Sender: TObject);{ djelfa.info/vb } begin // اظهار النموذج السابع Form7.Show;{ djelfa.info/vb } // اخفاء النموذج الاول Form1.Hide;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm1.Button7Click(Sender: TObject);{ djelfa.info/vb } begin // اغلاق البرنامج Close;{ djelfa.info/vb } end;{ djelfa.info/vb } end. ----------------------------- الوحدة الثانية ----------------------------- كود:
unit Unit2;{ djelfa.info/vb } interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;{ djelfa.info/vb } type TForm2 = class(TForm) Button1: TButton;{ djelfa.info/vb } procedure FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } procedure Button1Click(Sender: TObject);{ djelfa.info/vb } private { Déclarations privées } public { Déclarations publiques } end;{ djelfa.info/vb } var Form2: TForm2;{ djelfa.info/vb } implementation uses untsj;{ djelfa.info/vb } {$R *.DFM} procedure TForm2.FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } begin // اظهار النموذج الاول Form1.Show;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm2.Button1Click(Sender: TObject);{ djelfa.info/vb } begin // اغلاق النموذجالثاني Form2.Close;{ djelfa.info/vb } end;{ djelfa.info/vb } end. ------------------------------- الوحدة الثالثة ------------------------------- كود:
unit Unit3;{ djelfa.info/vb } interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;{ djelfa.info/vb } type TForm3 = class(TForm) Button1: TButton;{ djelfa.info/vb } procedure FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } procedure Button1Click(Sender: TObject);{ djelfa.info/vb } private { Déclarations privées } public { Déclarations publiques } end;{ djelfa.info/vb } var Form3: TForm3;{ djelfa.info/vb } implementation uses untsj;{ djelfa.info/vb } {$R *.DFM} procedure TForm3.FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } begin // اظهار النموذج الاول Form1.Show;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm3.Button1Click(Sender: TObject);{ djelfa.info/vb } begin // اغلاق النموذج الثالث Form3.Close;{ djelfa.info/vb } end;{ djelfa.info/vb } end. --------------------------------- الوحدة الرابعة --------------------------------- كود:
unit Unit4;{ djelfa.info/vb } interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;{ djelfa.info/vb } type TForm4 = class(TForm) Button1: TButton;{ djelfa.info/vb } procedure FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } procedure Button1Click(Sender: TObject);{ djelfa.info/vb } private { Déclarations privées } public { Déclarations publiques } end;{ djelfa.info/vb } var Form4: TForm4;{ djelfa.info/vb } implementation uses untsj;{ djelfa.info/vb } {$R *.DFM} procedure TForm4.FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } begin // اظهار النموذج الاول Form1.Show;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm4.Button1Click(Sender: TObject);{ djelfa.info/vb } begin // اغلاق النموذج الرابع Form4.Close;{ djelfa.info/vb } end;{ djelfa.info/vb } end. ---------------------------- الوحدة الخامسة ---------------------------- كود:
unit Unit5;{ djelfa.info/vb } interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;{ djelfa.info/vb } type TForm5 = class(TForm) Button1: TButton;{ djelfa.info/vb } procedure FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } procedure Button1Click(Sender: TObject);{ djelfa.info/vb } private { Déclarations privées } public { Déclarations publiques } end;{ djelfa.info/vb } var Form5: TForm5;{ djelfa.info/vb } implementation uses untsj;{ djelfa.info/vb } {$R *.DFM} procedure TForm5.FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } begin // اظهار النموذج الاول Form1.Show;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm5.Button1Click(Sender: TObject);{ djelfa.info/vb } begin // اغلاق النموذج الخامس Form5.Close;{ djelfa.info/vb } end;{ djelfa.info/vb } end. ------------------------------------- الوحدة السادسة ------------------------------------- كود:
unit Unit6;{ djelfa.info/vb } interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;{ djelfa.info/vb } type TForm6 = class(TForm) Button1: TButton;{ djelfa.info/vb } procedure FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } procedure Button1Click(Sender: TObject);{ djelfa.info/vb } private { Déclarations privées } public { Déclarations publiques } end;{ djelfa.info/vb } var Form6: TForm6;{ djelfa.info/vb } implementation uses untsj;{ djelfa.info/vb } {$R *.DFM} procedure TForm6.FormClose(Sender: TObject;{ djelfa.info/vb } var Action: TCloseAction);{ djelfa.info/vb } begin // اظهار النموذج الاول Form1.Show;{ djelfa.info/vb } end;{ djelfa.info/vb } procedure TForm6.Button1Click(Sender: TObject);{ djelfa.info/vb } begin // اغلاق النموذج السادس Form6.Close;{ djelfa.info/vb } end;{ djelfa.info/vb } 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.
|
||||
2016-09-13, 23:39 | رقم المشاركة : 2 | |||
|
شكرا لك على المشاركة |
|||
2016-09-14, 07:29 | رقم المشاركة : 3 | |||
|
شكرا لك على الــــــــرد |
|||
2016-10-13, 18:08 | رقم المشاركة : 4 | |||
|
مشكووووووور |
|||
2016-10-19, 23:29 | رقم المشاركة : 5 | |||
|
لك شكرا جزيلا |
|||
2017-01-16, 15:11 | رقم المشاركة : 6 | |||
|
لك شكرا جزيلا |
|||
2017-02-02, 22:21 | رقم المشاركة : 7 | |||
|
مشكووور اخي |
|||
2017-03-04, 03:04 | رقم المشاركة : 8 | |||
|
مشكوور على الموضوع |
|||
2017-03-08, 09:07 | رقم المشاركة : 9 | |||
|
بارك الله فيكم |
|||
2017-03-08, 20:35 | رقم المشاركة : 10 | |||
|
مشكور اخي ا |
|||
الكلمات الدلالية (Tags) |
المستعملة, المشروع, النماذج, بعالم, form |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc