12-05-2016, 11:14 PM
السلام عليكم و رحمة الله و بركاته
أقترح مبدئيا انشاء اجراء يقوم بالتحقق من التحديد . في حالة التحديد اضافة الشهر إلى القائمة .كمثال استخدمت memo
ثم تستدعي الاجراء بالترتيب . حسب اسم الشهر .
نعم طويل بعض الشيء ، وهذا أقصى ما يمكنني تخمينه ،موفق
أقترح مبدئيا انشاء اجراء يقوم بالتحقق من التحديد . في حالة التحديد اضافة الشهر إلى القائمة .كمثال استخدمت 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; نعم طويل بعض الشيء ، وهذا أقصى ما يمكنني تخمينه ،موفق
وجودك الذي لا نكاد نشعر به لعميق صمتك ..