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

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

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

[صورة: dNofSK.jpg]

به ثلاثة خيارات للتنفيد عن طريق الكائن 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:

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

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

فارس المطر

Agmcz

الكاسر الآخر