Как работает событие OnChange у DbEdit

@kebot · Регистрация: 11.07.2012

Author24 — интернет-сервис помощи студентам

Всем здравствуйте,

столкнулся с такой проблемой - у меня на форме кнопка которая должна быть неактивна ровно до того
момента пока пользователь не изменит данные в DBEdit1 написал вот такой код

Delphi

procedure TForm5.DBEdit1Change(Sender: TObject);
begin
  Button2.Enabled:=True;
end;

и все конечно работает но у меня на этой же форме еще есть таблица dbgrid1 которая по событию
onEnter тоже делает Button2 активной

все дело в том что по нажатию Button2 выполняется

Delphi

1	Form1.ADOQuery3.Post;

и соответственно если при этом в DBEdit1 ни чего не поменяно вылетает ошибка

Я подумал давай сделаю так

Delphi

на form1
q3:=0;
 
procedure TForm5.DBEdit1Change(Sender: TObject);
begin
  Button2.Enabled:=True;
  q3:=1;
end;
 
procedure TForm5.Button2Click(Sender: TObject);
 
begin
 
  if  q3=1 then Form1.ADOQuery3.Post;
 
end;

казалось бы все должно работать а в действительности

запускаеться 5я форма - кнопка не активна в DBEdit1 текущий текст выделен черным и
мигает курсор а переменная q3 уже =1

как так ? в одной процедуре происходит и активация кнопки и присвоение переменной
но кнопка не активна (становиться активной если я действительно изменю текст) а переменная
уже присвоилась

если както можно обойти эту проблему по другому буду признателен

Одиночка · 03.09.2012, 20:12

У DbEdit-а, как и у Edit-а есть свойство Modified, которое устанавливается в True - если пользователь изменяет содержимое. Ты можешь устанавливать его в False, когда записываешь в него начальные данные. Если пользователь их изменит - значение Modified станет True. Проверяй перед выполнением Post и всё.

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	03.09.2012, 20:12	2
	У DbEdit-а, как и у Edit-а есть свойство Modified, которое устанавливается в True - если пользователь изменяет содержимое. Ты можешь устанавливать его в False, когда записываешь в него начальные данные. Если пользователь их изменит - значение Modified станет True. Проверяй перед выполнением Post и всё. 0

Опции темы