كيف احسب عدد اللابل الحمراء على الفورم

[jeanjamil]

السلام عليكم
لدي مجموعة من اللابل يتبدل لونها بين الاحمروالاسود وقت التنفيذ
كيف احسب عدد اللابل الحمراء ان زادت وان نقصت

[AbdouProg]

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

[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;

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