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

v_shalchian

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

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

DelphiAssistant

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

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 فراخوانی کنید.