+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف احسب عدد اللابل الحمراء على الفورم (/showthread.php?tid=9309)
كيف احسب عدد اللابل الحمراء على الفورم - jeanjamil - 08-04-2018
السلام عليكم
لدي مجموعة من اللابل يتبدل لونها بين الاحمروالاسود وقت التنفيذ
كيف احسب عدد اللابل الحمراء ان زادت وان نقصت
RE: كيف احسب عدد اللابل الحمراء على الفورم - AbdouProg - 12-04-2018
السلام عليكم
يمكن توضيح المشكل بدقة او ضع السورس لنفهم جيدا المقصود
RE: كيف احسب عدد اللابل الحمراء على الفورم - wadoud - 13-04-2018
السلام عليكم ورحمة الله
أخي الكريم جرب ما يلي:
كود :
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;والله هـو الموفق