события onMouseWheelUp в TForm

[Litvinenko_A]

Здравствуйте! Подскажите кто знает. Есть форма Form1. Пишу обработчик события FormMouseWheelUp. В нем идет обновление данных в форме из ADO запроса. Т.е. по скролу переход на след запись и вывод результатов запроса в поля. Вот текст процедуры.

procedure TForm1.FormMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
var
Answer: integer;
begin
if Change then begin
Answer := MessageBox(0, 'Сохранить изменения?','Вопрос', MB_YESNOCANCEL or MB_ICONQUESTION);
if Answer = ID_YES then
ApplyChanges;//процедура обновления полей формы
if (Answer = ID_YES) or (Answer = ID_NO) then begin
Change :=false;
Ado.Prior;
end;
end
else
Ado.Prior;
end;

Все нормально, но при одном щелчке колесика, событие OnMouseWheelUp вызывается почему-то 4 раза, а значит переход идет не на одну позицию, а на 4.

Посоветуйте как лучше от этого избавиться. Можно вставить счетчик, но может можно как-то лучше сделать?

[plahmonah]

Litvinenko_A
Крутил твою тему получилсь, кое что:
Вывод данных из 3-х полей таблицы бд в Edit.
Получается крутишь колес у мыша, а даттые у тебя в этиде меняются.
qTest - есть ADOQuerty
Код здесь

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
var
A: integer;
begin
A:=MessageBox(0, 'Сохранить список ?', 'Вопрос', MB_YESNO or MB_ICONQUESTION);
if (A = ID_YES) then
begin
Handled:=false;
Edit1.Text:=Form1.qTestid.AsString;
Edit2.Text:=Form1.qTestnama.AsString;
Edit3.Text:=Form1.qTestconn.AsString;
qTest.Next;
Handled:=true;
end
else
Handled:=true;
exit;
end;

[plahmonah]

Litvinenko_A
Ты еще рассказал бы как у тебя обновление в процедуре - ApplyChanges;, происходит?
И что такое Change?

[Litvinenko_A]

Цитата: Сообщение от bjjzp Litvinenko_A Ты еще рассказал бы как у тебя обновление в процедуре - ApplyChanges;, происходит? И что такое Change?

Changes это булевая переменная определяющая изменились ли данные на форме. Если да, то в ApplyChanges вызывается скрипт с updat'ом измененных данных. Короче идея как в любом редакторе.

Добавлено через 31 минуту

Цитата: Сообщение от bjjzp Handled:=true;

Спасибо. Вот как раз про этот параметр я и не знал.