شرط ل edt اذا كان فارغ

[المحجوب]

اود ايجاد كود شرطي ل edt

بحيث لو اعطي امر تنفيذ لا يقبل اذا كان فارغ وتأتي رسالة شرطيه
تفيد بأنه يجب ادخال اسم او تعبية هذا المربع الخ ...

ولا يقبل ادخال اي معلومه من خلاله اذا كان فارغاً

انا استخدم هذا الكود داخل button

كود :

ComboBox2.Items.Add(Edit1.Text);

[Agmcz]

السلام عليكم

كود :

if Edit1.Text = '' then ShowMessage('Message');

[المحجوب]

اخوي هذا الكود يظهر المسج فقط ولكن يضيف ما بداخل edt بعد الرسالة

ارغب بكود شرطي لا يضيف نهائياً لو كان فارغ

كود :

if Edit4.Text = '' then ShowMessage('Message'); if Edit3.Text = '' then ShowMessage('Message'); ListBox1.Items.Add(Edit4.Text); ComboBox2.Items.Add(Edit5.Text);

لاحظ الكود يظهر المسج ثم يضيف لا يوجد فرق عن السابق

الحل ..

[لؤي]

لاحظ الكود يظهر المسج ثم يضيف لا يوجد فرق عن السابق

الحل ..

تفضل أخي

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; 


[Agmcz]

أخي أنت قلت
شرط ل edt اذا كان فارغ
وأنا أعطيتك والباقي أكمله

[المحجوب]

أخي أنت قلت
شرط ل edt اذا كان فارغ
وأنا أعطيتك والباقي أكمله

شكراً على ردك وتجاوبك قبل كل شي

كود :

ولا يقبل ادخال اي معلومه من خلاله اذا كان فارغاً

[Agmcz]

يمكنك إستعمال الكود الدي وضعه louay
شكرا له
أو

PHP كود :

if Edit1.Text = '' then
ShowMessage('Message')
else
ComboBox2.Items.Add(Edit1.Text); 


[Mr.DOS]

السلام عليكم

ماذا لو ادخلت شرط
يلغي تفعيل العنصر 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;

[المحجوب]

كود :

ماذا لو ادخلت شرط يلغي تفعيل العنصر combobox لو لم يتم الادخال على عنصر Edit

حتى لو اقفلت combobox وجعلت خاصيته غير مفعله راح يضيف ما بداخل tdt عند اعطاء امر ادخال

عموماً الكود الصحيح تم وضعه وتجربته من قبل الاخ louay جزاه الله خير
اعتقد انه يفي بالغرض 100%

[الزري2]

حتى لو اقفلت combobox وجعلت خاصيته غير مفعله راح يضيف ما بداخل tdt عند اعطاء امر ادخال

لو إستعملت الكود جيداً وربطته بحدث OnChange للمكون Edit لما تحصلت على المشكلة الأخيرة