[SpectraL]

Почему после перемещения ползунка компонента TTrackBar событие OnChange выполняется 3 раза?

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  ShowMessage('yes') // выполнится 3 раза
end;

[NumLock]

оно происходит всякий раз когда меняется позиция

[SpectraL]

Позиция меняется только один раз - на следующее деление, а событие выполняется трижды.

[SpectraL]

Почему i = 3 при Position = 1?

Код:

unit Unit1;

interface
  uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;

  type
    TForm1 = class(TForm)
      TrackBar1: TTrackBar;
      Button1: TButton;
      procedure TrackBar1Change(Sender: TObject);
      procedure Button1Click(Sender: TObject);
    end;

  var
    Form1: TForm1;
    i: Byte;

implementation
  {$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(i))
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  i := i + Form1.TrackBar1.Position
end;

end.

[Страдалецъ]

Нет инициализации i

[SpectraL]

А как инициализировать i?

[angvelem]

Сообщение от Страдалецъ

Нет инициализации i

Переменная глобальная, значит уже инициализирована 0.

Сообщение от SpectraL

...если добавить "FPosition+":

Почему бы не умножить или разделить? Нужна позиция? Код уже привели ранее.