Изначально Label1.Caption приравниваем к нулю. Имееться вот такой исходный код:
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);
end;
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Label1.Caption:=IntToStr(StrToInt(Label1.Caption)-1);
end;
У меня задача отловить сколько раз было совершено действие скролом "Вверх" и "Вниз" и запустить соответствующую функцию. Иходник работает но почему он выполняться дважды??? И как сделать чтоб он выполнялся один раз?