13-08-2012, 12:24 AM
13-08-2012, 12:51 AM
لا اعرف ماتقصد بالضبط ولكن جرب هذا الكود لعله ينفع
PHP كود :
uses myForm_unit;
myform:=Tmyform.create(application);
myform.showmodal;
13-08-2012, 05:00 AM
انشاء عدد غير محدد من الـ 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;السلام عليكم