delphi4arab منتديات دلفي للعرب

السلام عليكم
اعد برنامج ATS ، لكن هناك مشكلة في:
- عندي شهور السنة من جانفي الى ديسمبر كلها بـ checkbox وعند اختيار مجموعة من الشهور تظهر في قائمة على quickriport وشرط ان تكون متسلسلة؟ كيف انجز ذالك؟

السلام عليكم و رحمة الله و بركاته

أقترح مبدئيا انشاء اجراء يقوم بالتحقق من التحديد . في حالة التحديد اضافة الشهر إلى القائمة .كمثال استخدمت memo

كود :
procedure TForm1.cheky(roof:TCheckBox) ;
begin
  if roof.Checked then
  begin
  Memo1.Lines.Add(roof.Caption);

 end;
end;            

ثم تستدعي الاجراء بالترتيب . حسب اسم الشهر .

كود :
procedure TForm1.Button1Click(Sender: TObject);


begin
  Memo1.Lines.Clear;

   cheky(CheckBox1);
    cheky(CheckBox2);
     cheky(CheckBox3);
  cheky(CheckBox4);
    cheky(CheckBox5);
     cheky(CheckBox6);
  cheky(CheckBox7);
    cheky(CheckBox8);
     cheky(CheckBox9);
  cheky(CheckBox10);
    cheky(CheckBox11);
     cheky(CheckBox12);


end;                

نعم طويل بعض الشيء ، وهذا أقصى ما يمكنني تخمينه ،موفق

Bachirsoft

kito