كيفية معرفة الفورمز المفتوحة التابعة لبرنامجي

هل تستخدم MDI Forms و لا عادي

اذا كنت تستخدم MDI Forms يمكن استخدام الكود التالي لاغلاق جميع النوافذ المفتوحة ضمن الفورم الاب

  for i:= 0 to MdiChildCount - 1 do
    MDIChildren.Close;

ولكن لاأستخدم في MDIForm

ممكن طريقة في حالة الاستخدام للفورم العادي؟

مع شكري للأخ waeldalol

اخي الكريم

اليك كيف تفعل ذلك

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
  for i := 0 to ComponentCount -1 do
  begin
    if Components.ClassNameIs('TForm2') then
       TForm(Components).Close;
  end;
end;

هذا الكود لاغلاق كاقة الفورم المفتوح من Form2

اذا اردت ان تغلق جميع الفورم

ضع اسم Class لها في عبارة Or

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
  for i := 0 to ComponentCount -1 do
  begin  Components.
    if (Components.ClassNameIs('TForm2')) or Components.ClassNameIs('TForm3') then
       TForm(Components).Close;
  end;
end;

ملاحظة : يمكنك استخدام اسم الفورم بدل من اسم الكلاس

وذلك باخذ الخاصية Name بد من ClassName

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

يمكنك ايضا استخدام الخاصية Tag لتوفير الكتابة و ذلك كما يلي

قم بضبط الخاصية Tag لكل الفورم الأبناء على الرقم 10 مثلا

ثم قم بكتابة الكود التالي لتقوم بعملية الاغلاق

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
  for i := 0 to ComponentCount -1 do
  begin
    if Components.Tag = 10  then
       TForm(Components).Close;
  end;
end;

ارجو ان يكون الشرح واضح :rolleyes:

اخي العزيز جربتها ولكن لم تعمل هل من محاولة اخرى مع جزيل الشكر

اخي الكريم اي من الاكود جربت و لم تعمل معك

انا جربتها و عملت 100%

جرب هذا المثال

Close All.zip

جربتها كلها اخي الكريم

انا اعمل على دلفي 6 هل يوجد اختلاف في عمل هذه الدالة مع دلفي 7

لا يوجد اي اختلاف بين النسختين في هذه الناحية

و لكن اي دالة تقصد لم افهم ارجو التوضيح

ماذا حصل في المثال

ما هي النتائج التي حصلت؟

هل نسيت ضبط الخاصية Tag على 10

اذا نسيت ذلك لن تعمل

جربت ولكن دون جدوى اضف ايضا

for i:=0 to ComponentCount-1 do

begin

if ((Components.ClassNameIs('TForm')) and (Components.Name<>'form1')) then

begin

// ShowMessage('rrrrrrrrrrr');

TForm(Components).Close;

end;

end;

هل طريقة تكوين الفورم لها علاقة بالامر

hitam كتب:

هل طريقة تكوين الفورم لها علاقة بالامر

←

نعم

ComponentCount عدد المكونات المجودة داخل الفورم الأول أو المكونة بداخله

جرب أن تضيف

showmessage(inttostr(ComponentCount));

لتفهم الأمر جيدا

مثال مرفق عملته بدلفي5

جربه و أخبرني بالنتيجة :D

CloseAllForms.rar

اقتباس

جربت ولكن دون جدوى اضف ايضا

for i:=0 to ComponentCount-1 do
begin
if ((Components.ClassNameIs('TForm')) and (Components.Name<>'form1')) then
begin
// ShowMessage('rrrrrrrrrrr');
TForm(Components).Close;
end;
end;

طبعا هناك خطأ و هو انّ Class Name ليس TForm و لكنه TForm1 لأن الفورم هو Form1

لذلك بدل الكود الى

for i:=0 to ComponentCount-1 do
begin
if (Components.ClassNameIs('TForm1') then
begin
// ShowMessage('rrrrrrrrrrr');
TForm(Components).Close;
end;
end;

إذا أردت إغلاق كل الفورمات , وليس فقط المنشأة من قبل Form2 , سأقترح تعديل بسيط :

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 for i := 0 to ComponentCount -1 do
 begin
   if Components is TForm then
if   ( (Components as TForm).name <> self.name) then  
(Components as TForm).Close;
 end;
end;

ملاحظة كتبتها الآن , ولم اجربها ... ولكن يجب أن تعمل

أسف للتدخل أخي عروة لكنها لن تعمل ...

لأنه عند كتابة

اقتباس

Components

هذا يعني المكونات التابعة للفورم فقط

والصحيح هو

Application.Components

اخي عروة كلامك صحيح 100% وجربتها وهي تعمل

و غاب عن بالي استخدام المعامل is فهو حل المشكلة

ولكن لدي تعليق هو انه لا داعي لفحص Components هل هي نفس الفورم

لانه Component هم ابناء له و لن يحضر الفورم الاب عند المرور عليهم

تعديل بسيط

  for i := 0 to ComponentCount -1 do
  begin
    if Components is TForm then
           (Components as TForm).Close;
  end;

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

for i:=0 to Application.ComponentCount - 1 do
if Application.Components is TForm then
 with (Application.Componentsas TForm) do
  if Name<>'Form1' then Close;