CheckListBox

#114 ديسمبر 2005 في 09:56 صاحب الموضوع

السلام عليكم :

لدي عنصر CheckListBox وفيه عدة قيم ولتكن التالي :

هندي

بنغالي

فلبيني

باكستاني

والمعروف عن العنص إنه يتيح اختيار عدة عناصر معاً والمطلوب :

كيف لي بحلقة For أو أي كود آخر قراءة العناصر المختارة فقط وتجاهل العناصر الغير مختارة فمثلاً إذا اخترت من العناصر السابقة التالي : هندي - فلبيني بحيث يجلب لي قيمة العنصر المختار فيقوم بجلب لي هندي - فلبيني كنص ..

شكراً لتعاونكم .

Visit My Website

#214 ديسمبر 2005 في 10:54

اليك الطريقة

procedure TForm1.Button1Click(Sender: TObject);
Var
 i : Integer;
 Tmp : String;
begin
 For i := 0 To CheckListBox1.Items.Count - 1 Do
 begin
  If CheckListBox1.Checked Then
   Tmp := Tmp + '  ' + CheckListBox1.Items;
 end;
 If Tmp <> '' Then
  ShowMessage(Tmp)
 else
  ShowMessage('No Items Selected');
end;

#314 ديسمبر 2005 في 11:38

أخي :

بارك الله فيك والف شكر لك.....والله ما قصرت .

Visit My Website

CheckListBox

مواضيع مشابهة