![]() |
|
|
#1
|
|||
|
|||
|
Имется поля Edit, в которые пользователь вводит данные. В поля можно вводить только цифры и запятую. Если из поля все удаляется, то соответственно выдается сообщение об ошибке.
Что можно сделать чтобы пользователи это поле не оставляли пустым, или чтобы оно нулями заполнялось или сообщение об ошибке типа "Поле не должно быть пустым" появлялось. Спасибо. |
|
#2
|
||||
|
||||
|
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='' //если поле Edit пустое
then//то...
end; |
|
#3
|
||||
|
||||
|
В событии OnExit
Код:
if Length(Edit1.Text)=0 then ShowMessage('');ЗЫ: Я так понял это работа с датами ... в этом случае нужно по Else ставить проверку на коректность даты |
|
#4
|
|||
|
|||
|
Если это диалоговая форма, то лучше в OnCloseQuery сделать все проверки.
|
|
#5
|
|||
|
|||
|
Нет, работа не с датами, обычное Edit поле.
|