دخول

wadoud

السلام عليكم ورحمة الله
أخي الكريم جرب ما يلي:

كود :
procedure TForm1.Button1Click(Sender: TObject);
var I , C: Integer;

begin
C:=0;
for i := 0 to form1.ComponentCount-1 do
begin
if((form1.Components[i] as TLabel).font.color = clred) then
C := C+ 1;
edit1.text:= inttostr(C);
end;

end;

والله هو الموفق.

معذرة منك أخي الكريــــــــم لقد سهوت في الرد ، الجواب الصحيـــــح إن شاء الله هـــــو كالتالي:

كود :
procedure TForm1.Button1Click(Sender: TObject);
var I , C: Integer;

begin
C:=0;
for i := 0 to form1.ComponentCount-1 do
begin
if( form1.Components[i] is Tlabel) and ((form1.Components[i] as TLabel).font.color = clred) then
C:= C+ 1;
edit1.text:= inttostr(C);
end;

end;

والله هـو الموفق

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة