كيف يتم انشاء فورم برمجياً ؟ - نسخة قابلة للطباعة

كيف يتم انشاء فورم برمجياً ؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم انشاء فورم برمجياً ؟ (/showthread.php?tid=4451)

كيف يتم انشاء فورم برمجياً ؟ - M_Mori2010 - 13-08-2012

السلام عليكم ورحمة الله وبركاته
كيف يتم انشاء فورم برمجياً في حال الضغط على Bottun1 وجزاكم الله كل خير

كيف يتم انشاء فورم برمجياً ؟ - justnick - 13-08-2012

لا اعرف ماتقصد بالضبط ولكن جرب هذا الكود لعله ينفع

PHP كود :
uses myForm_unit;
myform:=Tmyform.create(application);
myform.showmodal; 

كيف يتم انشاء فورم برمجياً ؟ - S.FATEH - 13-08-2012

انشاء عدد غير محدد من الـ Forms

كود :
private
    MyForm: array of TForm;

في حدث الضغط على اي زر :

كود :
procedure TForm1.CreateForms(Sender: TObject);
begin
  SetLength(MyForm, Length(MyForm) + 1);
  MyForm[Length(MyForm) - 1] := TForm1.Create(Self);
  MyForm[Length(MyForm) - 1].Name := 'Form' + IntToStr(Length(MyForm));
  MyForm[Length(MyForm) - 1].Caption := 'Form' + IntToStr(Length(MyForm));
  MyForm[Length(MyForm) - 1].Show;
end;

السلام عليكم