DBEdit.Exit и DBNavigator

← →
Александр_2012 (2012-11-13 17:17) [0]

Доброго дня. Столкнулся с интересной ситуацией:
использую компонент OraUpdateSQL для изменения данных в БД, чтобы не переписывать все поля (ведётся журнал изменений, да и для чего) использую такой код для всех полей:

procedure TMainForm.DBEdit1Exit(Sender: TObject);
begin
if flgupd then
begin
sqlupd:=sqlupd+(Sender as TDBEdit).Field.FieldName+"="+
(Sender as TDBEdit).Text+",";
flgupd:=False;
end;
end;

procedure TMainForm.DBEdit1Change(Sender: TObject);
begin
if DM.DataQ.State<>dsInactive then
begin
if DM.DataQ.FieldByName((Sender as TDBEdit).Field.FieldName).asString<>(Sender as TDBEdit).Text then
flgupd:=True;
end;
end;

sqlupd затем передаётся в OraUpdateSQL параметром в строку set …
В целом код работает, но не записывается последнее изменённое поле, т.к. с него я перехожу на DBNavigator (Post) и при этом на последнем изменённом поле не происходит событие OnExit, т.к. у DBNavigator TabStop=False и передача фокуса не происходит.
Можно установить TabStop=True, в этом случае строка будет сформирована полностью, но при этом фокус будет передан DBNavigator, что не удобно, да и чревато случайными нажатиями на Enter. Можно ли обойти этот замкнутый круг? Чтобы и OnExit отработало и фокус на DBNavigator не передавался?

← →
Медвежонок Пятачок © (2012-11-13 22:54) [1]

А зачем чтобы OnExit срабатывало?
Недостаточно текущего контрола ?

> В целом код работает, но не записывается последнее изменённое
> поле, т.к. с него я перехожу на DBNavigator (Post) и при
> этом на последнем изменённом поле не происходит событие
> OnExit

Write a BeforePost event handler to take specific action before an application posts dataset changes. BeforePost is triggered when an application calls the Post method. Post checks to make sure all required fields are present, then calls BeforePost before posting the record.

An application might use BeforePost to perform validity checks on data changes before committing them. If it encountered a validity problem, it could call Abort to cancel the Post operation.

DBEdit.Exit и DBNavigator Найти похожие ветки