اود ايجاد كود شرطي ل edt
بحيث لو اعطي امر تنفيذ لا يقبل اذا كان فارغ وتأتي رسالة شرطيه
تفيد بأنه يجب ادخال اسم او تعبية هذا المربع الخ ...
ولا يقبل ادخال اي معلومه من خلاله اذا كان فارغاً
انا استخدم هذا الكود داخل button
كود :
ComboBox2.Items.Add(Edit1.Text);
اخوي هذا الكود يظهر المسج فقط ولكن يضيف ما بداخل edt بعد الرسالة
ارغب بكود شرطي لا يضيف نهائياً لو كان فارغ
كود :
if Edit4.Text = '' then
ShowMessage('Message');
if Edit3.Text = '' then
ShowMessage('Message');
ListBox1.Items.Add(Edit4.Text);
ComboBox2.Items.Add(Edit5.Text);
لاحظ الكود يظهر المسج ثم يضيف لا يوجد فرق عن السابق
الحل ..
أخي أنت قلت
شرط ل edt اذا كان فارغ
وأنا أعطيتك والباقي أكمله
rami كتب :أخي أنت قلت
شرط ل edt اذا كان فارغ
وأنا أعطيتك والباقي أكمله
شكراً على ردك وتجاوبك قبل كل شي
كود :
ولا يقبل ادخال اي معلومه من خلاله اذا كان فارغاً
يمكنك إستعمال الكود الدي وضعه louay
شكرا له
أو
PHP كود :
if Edit1.Text = '' then
ShowMessage('Message')
else
ComboBox2.Items.Add(Edit1.Text);
السلام عليكم
ماذا لو ادخلت شرط
يلغي تفعيل العنصر 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%