باز کردن چند نمونه از یک فرم [بایگانی]

v_shalchian

پنج شنبه 11 تیر 1383, 19:44 عصر

سلام
می خواستم بدونم چه طور می تونیم حین اجرای برنامه از یک فرم چند نمونه باز کنیم.
بدون استفاده از ObjectList.

مهدی کرامتی

پنج شنبه 11 تیر 1383, 20:33 عصر

1- فرم را از حالت AutoCreate خارج کنید.

2- یونیت حاوی فرم مورد نظر را در یونیت کنونی Use کنید.

3- چند متغیر از نوع فرم مورد نظر تعریف کنید. مثلا:

var fForm1,fForm2,fForm3:TForm2;
4- سپس در واقعه Create فرم اصلی این دستورات را اضافه کنید:

fForm1:=TForm2.Create(Application);
fForm2:=TForm2.Create(Application);
fForm3:=TForm2.Create(Application);
5- اکنون میتوانید هر کدام از این متغیر ها را با متد Show یا ShowModal فراخوانی کنید.