delphi4arab منتديات دلفي للعرب - كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة

كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة
كمثال

كود :
if dbedit4.Text='' then
    begin
      messagedlg('entree LA DATE ',mterror,[mbok],0);
      abort;
    end

اخي الكريم يمكنك عمل الاتي :

هذا اذا كان عدد الاحرف يساوي الصفر

PHP كود :
if (length(dbedit4.text)=0) then begin
messagedlg('entree LA DATE ',mterror,[mbok],0);
Exit;
end; 

M_Mori2010 كتب :اخي الكريم يمكنك عمل الاتي :

هذا اذا كان عدد الاحرف يساوي الصفر

PHP كود :
if (length(dbedit4.text)=0) then begin messagedlg('entree LA DATE ',mterror,[mbok],0); Exit; end;

بارك الله فيك أخي لكن كيف يمكنني إستعماله بوضع datetimepicker عوض dbedit4

hallal02 كتب :بارك الله فيك أخي لكن كيف يمكنني إستعماله بوضع datetimepicker عوض dbedit4

و للتوضيح أكثر هذا المثال الذي أعمل عليه

كود :
procedure TForm8.BitBtn8Click(Sender: TObject);
var dt1,dt2:Tdate;
begin
if sdateedit3.Text:='' then
begin showmessage('enter la date')
else
  adoquery1.Close;
  adoquery1.SQL.Text:=('Select [COD COMPTES], Sum(Debit)as Sumdebit from DEBIT where LADATE Between :Dt1 and :Dt2 GROUP BY [COD COMPTES]');
  adoquery1.Parameters.ParamValues['Dt1']:=strtodate(sdateedit3.text);
  adoquery1.Parameters.ParamValues['Dt2']:=strtodate(sdateedit4.text);
  adoquery1.Open;
  bitbtn16.Enabled:=true;
end;
end;