[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?

[SpectraL]

Добавил в конце кода:

Код:

initialization
  i := 1;

Теперь i = 4.

[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FPosition: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPosition:=TrackBar1.Position;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  FPosition:=TrackBar1.Position;
end;

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

end.

[SpectraL]

Вы абсолютно не правы. FPosition по прежнему = 3, если добавить "FPosition+":

Код:

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

[NumLock]

если не нужно!

[angvelem]

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

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

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

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

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

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

[SpectraL]

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

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

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

Нужно понять почему событие OnChange выполняется 3 раза.

[CynicRus]

Очевидно же. OnChange вызывается первый раз когда нажимаешь кнопку мыши, второй раз - когда сдвигаешь ползунок, и третий раз - когда отпускаешь кнопку.

[NumLock]

в мему будет писаться только 1 раз:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
    FPosition: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPosition:=-1;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if TrackBar1.Position<>FPosition then
  begin
    FPosition:=TrackBar1.Position;
    Memo1.Lines.Add(IntToStr(FPosition));
  end;
end;

end.

[SpectraL]

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

Очевидно же. OnChange вызывается первый раз когда нажимаешь кнопку мыши, второй раз - когда сдвигаешь ползунок, и третий раз - когда отпускаешь кнопку.

Не очевидно: в справке написано, что событие вызывается изменением Position, а учитывать нажатие-отпускание кнопки мыши - не вполне верно.