اسماء الفورمات ضمن التطبيق

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i:=1 to Application.ComponentCount -1 do
  begin
    if (Application.Components is TForm) then
    begin
      ShowMessage(Tform(Application.Components).Caption);
    end;
  end;
end;

لو كان عندك اكثر من فورم منشأة سوف يعرض لك هذا الكود اسم كل فورم منشأة فقط

حيث انّ Forms في التطبيق Application تعتبر Component و يمكن الولوج اليها عن طريق Application.components

ارجو البحث في المنتدى اذكر اننا ناقشنا هذا الشيئ من قبل