Как правильно обработать onValidate?

← →
Fom (2004-02-04 10:30) [0]

Мастаки, помогите...
Делаю проверку на вводимое значение для числового поля в событии
OnValidate:
... begin if GoodValue(Sender.AsFloat) <> 0 then begin ShowMessage("Bad value!"); Sender.Value := Sender.OldValue; fMain.dbeLT.SetFocus; end; end; ...

Но такой код не верно работает, почему-то Sender.OldValue - это новое а не старое, но даже если и было оно новвым, то такая обработка зацикливается... Как правильно сделать?

← →
Fom (2004-02-04 10:46) [1]

Ну что ж, что-то у меня получилось :)

... begin if GoodValue(Sender.AsFloat) <> 0 then raise Exception.Create("Bad value!"); end; ...

Но в поле ввода остается новое значение, как вернуть старое?

← →
Sandman25 © (2004-02-04 10:59) [2]

Dataset.Cancel

← →
Fom (2004-02-04 11:03) [3]

А нельзя остаться в режиме редактирования, но с со старым значением?

← →
Sandman25 © (2004-02-04 11:04) [4]

Можно.
1. После Cancel сразу вызвать Edit.
2. В BeforeEdit запоминаете старые значения всех полей.
В OnValidate восстанавливаете только то, что нужно восстановить.

← →
Mike Kouzmine © (2004-02-04 11:05) [5]

BtforeEdit - запоминаешь, надо меняешь. Еще есть методы.

← →
Fom (2004-02-04 11:13) [6]

ну и гемор, млин...

← →
Sandman25 © (2004-02-04 11:16) [7]

[6] Fom (04.02.04 11:13)

Напишите своего наследника TxxxField, у которого все это будет реализовано "внутри". И гемора не будет :)
Кстати, не забудьте о параметрах события OnValidate - может, получится объединить несколько обработчиков.

← →
Fom (2004-02-04 11:25) [8]

Ок. Спасибо за советы...
Еще тогда один трабл, как сделать, чтобы нельзя было вводить данные в поле, если не введены данные, в какое-то другое поле?

Для этого лучше вводить данные в отдельной форме и при попытке войти в Edit (OnEnter) отправлять на другой Edit (SetFocus).
Для грида можно попытаться не пускать в колонку (OnColEnter)

← →
Fom (2004-02-04 11:33) [10]

Так и сделал, но при попытке перейти к какому-то третьему полю ввода или отменить(Cancel). все время выскакивает сообщение обработки OnEnter поля, которое зависит от ввода в другом поле...

[10] Fom (04.02.04 11:33)

Это уже проблемы программной логики и взаимозависимостей. Либо решайте ее, либо вообще откажитесь от идеи проверки непосредственно при вводе и проверяйте все в BeforePost

Query1.CachedUpdates = True

procedure TForm1.Query1SIZESetText(Sender: TField; const Text: String); var i : integer; begin i:=StrToInt(Text); if i > 100 then Sender.AsInteger:=Sender.OldValue; else Sender.AsInteger:=i; end;

Как правильно обработать onValidate? Найти похожие ветки