+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أفصل خيارات RadioGroup (/showthread.php?tid=6994)
كيف أفصل خيارات RadioGroup - Ramzi2 - 14-05-2015
[COLOR="black"][COLOR="black"][COLOR="black"]مرحبا جميعا
أخوكم مبتدأ في البرمجة لا تضحكوا على استفساري
لدي استفسار : زر واحد للضغط وثلاثة خيارات RadioGroup
كل خيار من RadioGroup يتحقق من الارقام في edit و يظهر النتيجة في labl
![[صورة: sQ6oOF.jpg]](http://im51.gulfup.com/sQ6oOF.jpg)
لم تفلح معي
case ولا if مع اني برمجت كل خيار من RadioGroup في جزء بين بيقين واند
الهدف هو عمل كل خيار من RadioGroup على حدى
كيف أضع شرط التحقق من الرقم في edit واظهار النتيجة فيlabl دون خلط البرنامج
لأن البرنامج عاد يخلط في النتيجة وخلطني معاه:confused:[/COLOR][/COLOR][/COLOR]
كيف أفصل خيارات RadioGroup - الكاسر الآخر - 14-05-2015
كود :
if RadionButton1.checked Then
begin
// Code
end
else if RadioButton2.checked Then
begin
// code
end
else if RadioButton3.checked Then
begin
//code
endكيف أفصل خيارات RadioGroup - Agmcz - 14-05-2015
أرفق مثال هنا
كيف أفصل خيارات RadioGroup - Ramzi2 - 14-05-2015
ghost-dz كتب :أرفق مثال هنا
مثال
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex =0 then
if StrToInt(Edit1.Text) in [0..100] then Edit1.Color := clGreen else Edit1.Color := clRed;
if StrToInt(Edit1.Text) in [0..100] then begin Label2.Caption:='correcte';
Label2.Font.Color := clGreen;
end
else
begin
Label2.Caption:='incorrecte';
Label2.Font.Color := clRed;
end;
begin
if RadioGroup1.ItemIndex =1 then
if StrToInt(Edit1.Text) in [101..200] then Edit1.Color := clGreen else Edit1.Color := clRed;
if StrToInt(Edit1.Text) in [101..200] then begin Label2.Caption:='correcte';
Label2.Font.Color := clGreen;
end
else
begin
Label2.Caption:='incorrecte';
Label2.Font.Color := clRed;
end;
begin
if RadioGroup1.ItemIndex =2 then
if StrToInt(Edit1.Text) in [201..255] then Edit1.Color := clGreen else Edit1.Color := clRed;
if StrToInt(Edit1.Text) in [201..255] then begin Label2.Caption:='correcte';
Label2.Font.Color := clGreen;
end
else
begin
Label2.Caption:='incorrecte';
Label2.Font.Color := clRed;
end;
end;
end;
end;
end.كيف أفصل خيارات RadioGroup - Ramzi2 - 14-05-2015
الحمد لله واخيرا وجدت الحل
شكرا لكم جميعا
[COLOR="black"] [COLOR="black"][COLOR="black"]لو تكرمتم ماذا أفعل لكل لكي لا ينفذ البرنامج الا بعد ادخال جميع قيم edit الاربعة
يعني ادا كانت قيمة edit واحدة فارغة لا ينفذ
وشكرا [/COLOR][/COLOR] [/COLOR]
أو رسالة showmessage
تقول' أدخل كل قيم edit '
كيف أفصل خيارات RadioGroup - rahiche - 14-05-2015
كود :
if edit1.text='' then showmessage('يجب ملأ الحقل')