سلام بر برو بچ برنامه نویس
من همینک روی پروژه هایی که مینویسم ، با استفاده از پروسیجر زیر ، فرمی رو که میخوام رو بدون اینکه اون رو uses کنم ، از فرم اصلیم بازش میکنم.
Function TCodeComp.FormNameReturn(FormTag: Smallint; ScreenTmp: TScreen):TForm;
var i:integer;
begin
try
for i:=1 to ScreenTmp.FormCount-1 do
if Screen.Forms[i].Tag=FormTag then FormNameReturn:=Screen.Forms[i];
except FormNameReturn:=Nil end;
end;
var FormName:Tform;
begin
FormName:=CodeComp1.FormNameReturn(DBObjectModule. PublicTag,Screen);
FormName.ShowModal;
end
با این کدها نیازی ندارم که از Uses کردن استفاده کنم.
اما این حالت رو در زمانی استفاده میکنم که همه فرم ها موقع اجرای application ساخته میشن:
مثلا اینطوری :
Application.CreateForm(TPassForm, PassForm);
Application.CreateForm(TCompanyForm, CompanyForm);
حالا من میخوام کلا از ساخت خودکار فرم ها جلوگیری کنم و فرم ها رو خودم بسازم و آزاد کنم.
حالا به نظر شما ، چطوری میشه ، من با یک پروسیجر این کار رو انجام بدم که نیازی نباشه همه فرم های رو توی فرم اصلیم Uses کنم
و حالا اگه حتما باید Use بشه همه فرم ها ، چطوری با یک مت این کار رو برای ایجاد و نمایش همه فرم هام انجام بدم؟