ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как обойти OnDataChange в свойстве OnChange компонента Edit!?
3 сообщений из 3, страница 1 из 1
Как обойти OnDataChange в свойстве OnChange компонента Edit!?
    #32219351
Andronick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andronick
Участник
Господа ситуация такая:
в DataSource в свойсве OnDataChange у меня работает процедура подстановки в Edit1.text значения этого самого DataSource
При этом в Edit1 срабатывает свойство OnChange, а мне надо что бы OnChange срабатывал только если я вношу изменения в ручную (т.е. сам правлю содержание Edit1.text).
Как грамотнее обходить такое наслоение свойств OnChange... ?

Спасибо за совет. Andronick
...
Рейтинг: 0 / 0
28.07.2003, 12:01
| Ответить | Цитировать | Написать  
Как обойти OnDataChange в свойстве OnChange компонента Edit!?
    #32219364
Papka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Papka
Участник
Nu mozhno naprimer sozdat globalnuju peremennuju tipa:
DBChange: boolean;

V OnDataChange
v nachale: DBChange := True;
v konce: DBChange := False;

Nu i OnChange vnachale proverjat:
if not DBChange then begin
...
end
...
Рейтинг: 0 / 0
28.07.2003, 12:12
| Ответить | Цитировать | Написать  
Как обойти OnDataChange в свойстве OnChange компонента Edit!?
    #32219376
oleg_e
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg_e
Участник
А можно вот так:
Код: plaintext
1.
2.
3.
4.
5.
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  Edit1.OnChange:=nil;
  Edit1.Text:= DataSource1.DataSet.Fields[ 0 ].AsString; // Или как там у тебя
  Edit1.OnChange:=Edit1Change;
end;
...
Рейтинг: 0 / 0
28.07.2003, 12:23
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как обойти OnDataChange в свойстве OnChange компонента Edit!?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]