+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : شرط ل edt اذا كان فارغ (/showthread.php?tid=3195)
شرط ل edt اذا كان فارغ - المحجوب - 15-06-2011
اود ايجاد كود شرطي ل edt
بحيث لو اعطي امر تنفيذ لا يقبل اذا كان فارغ وتأتي رسالة شرطيه
تفيد بأنه يجب ادخال اسم او تعبية هذا المربع الخ ...
ولا يقبل ادخال اي معلومه من خلاله اذا كان فارغاً
انا استخدم هذا الكود داخل button
كود :
ComboBox2.Items.Add(Edit1.Text);شرط ل edt اذا كان فارغ - Agmcz - 15-06-2011
السلام عليكم
كود :
if Edit1.Text = '' then
ShowMessage('Message');شرط ل edt اذا كان فارغ - المحجوب - 16-06-2011
اخوي هذا الكود يظهر المسج فقط ولكن يضيف ما بداخل edt بعد الرسالة
ارغب بكود شرطي لا يضيف نهائياً لو كان فارغ
كود :
if Edit4.Text = '' then
ShowMessage('Message');
if Edit3.Text = '' then
ShowMessage('Message');
ListBox1.Items.Add(Edit4.Text);
ComboBox2.Items.Add(Edit5.Text);لاحظ الكود يظهر المسج ثم يضيف لا يوجد فرق عن السابق
الحل ..
شرط ل edt اذا كان فارغ - لؤي - 16-06-2011
المحجوب كتب :لاحظ الكود يظهر المسج ثم يضيف لا يوجد فرق عن السابق
الحل ..
تفضل أخي
PHP كود :
begin
if (Edit1.Text <> '') then
ListBox1.Items.Add(Edit1.Text)
else ShowMessage('Message');
if (edit2.Text <> '')then
ComboBox1.Items.Add(Edit2.Text)
else ShowMessage('Message');
end;
شرط ل edt اذا كان فارغ - Agmcz - 16-06-2011
أخي أنت قلت
شرط ل edt اذا كان فارغ
وأنا أعطيتك والباقي أكمله
شرط ل edt اذا كان فارغ - المحجوب - 16-06-2011
rami كتب :أخي أنت قلت
شرط ل edt اذا كان فارغ
وأنا أعطيتك والباقي أكمله
شكراً على ردك وتجاوبك قبل كل شي
كود :
ولا يقبل ادخال اي معلومه من خلاله اذا كان فارغاًشرط ل edt اذا كان فارغ - Agmcz - 16-06-2011
يمكنك إستعمال الكود الدي وضعه louay
شكرا له
أو
PHP كود :
if Edit1.Text = '' then
ShowMessage('Message')
else
ComboBox2.Items.Add(Edit1.Text);
شرط ل edt اذا كان فارغ - Mr.DOS - 20-06-2011
السلام عليكم
ماذا لو ادخلت شرط
يلغي تفعيل العنصر combobox
لو لم يتم الادخال على عنصر Edit
المثال
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='' then
label2.visible:=true
else
label2.visible:=false;
if edit1.text=''then
ShowMessage('Field N°. 1 [ Disable ]');
if edit1.text=''then
ComboBox1.enabled:=false
else
ComboBox1.enabled:=true;
if ComboBox1.enabled=true then
ComboBox1.Items.Add(Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;شرط ل edt اذا كان فارغ - المحجوب - 20-06-2011
كود :
ماذا لو ادخلت شرط
يلغي تفعيل العنصر combobox
لو لم يتم الادخال على عنصر Editحتى لو اقفلت combobox وجعلت خاصيته غير مفعله راح يضيف ما بداخل tdt عند اعطاء امر ادخال
عموماً الكود الصحيح تم وضعه وتجربته من قبل الاخ louay جزاه الله خير
اعتقد انه يفي بالغرض 100%
شرط ل edt اذا كان فارغ - الزري2 - 20-06-2011
المحجوب كتب :حتى لو اقفلت combobox وجعلت خاصيته غير مفعله راح يضيف ما بداخل tdt عند اعطاء امر ادخال
لو إستعملت الكود جيداً وربطته بحدث OnChange للمكون Edit لما تحصلت على المشكلة الأخيرة