تعداد فرمها در یک برنامه [بایگانی]

دنیای دلفی

دوشنبه 28 فروردین 1385, 14:28 عصر

آیا در دلفی تابعی وجود دارد که تعداد فرمها را برای یک Application نوشته شده برگرداند

mzjahromi

دوشنبه 28 فروردین 1385, 14:49 عصر

این کارت رو راه می اندازه؟

fc:=0;
For i:=0 To Application.ComponentCount-1 Do
if Application.Components[i] is TForm then
fc:=fc+1;

دنیای دلفی

دوشنبه 28 فروردین 1385, 18:10 عصر

مرسی ممنون