إستفسار بخوص الكائن RadioGroup

[فارس المطر]

السلام عليكم جميعا

قمت بتصميم برنامج صغير
الصورة



به ثلاثة خيارات للتنفيد عن طريق الكائن RadioGroup

البرنامج عبارة عن ثلاثة أقسام

كود :

begin case RadioGroup1.ItemIndex of 0: if edit1..... end; begin case RadioGroup1.ItemIndex of 1: if edit1..... end; begin case RadioGroup1.ItemIndex of 2: if edit1..... end; end.

المشكل المطروح =
البرنامج يقوم يتنفيذ خيار واحد وعند تغيير خيار راديو قروب لا يعمل الا بعد اعادة تشغيل البرنامج

بمعنى كل خيار يعمل مرة واحدة ويجب اعادة تشغيل لاختيار الثاني او الثالث :confused:

هل هناك خيارات تفعل في راديو قروب او هو مشكل برمجة في انتظار جوابكم وشكرا

:

[Agmcz]

PHP كود :

case RadioGroup1.ItemIndex of
    0: ShowMessage('1');
    1: ShowMessage('2');
    2: ShowMessage('3');
  end; 


[الكاسر الآخر]

هناك طريقة أخرى وهي

كود :

if Radiobutton1.checked then begin bla bla bla .... end else if Radiobutton2.checked then begin bla bla bla .... end else ifRadiobutton3.checked then begin bla bla bla .... end