![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Почему после перемещения ползунка компонента TTrackBar событие OnChange выполняется 3 раза?
Код:
procedure TForm1.TrackBar1Change(Sender: TObject); begin ShowMessage('yes') // выполнится 3 раза end; |
#2
|
||||
|
||||
![]() оно происходит всякий раз когда меняется позиция
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
![]() Позиция меняется только один раз - на следующее деление, а событие выполняется трижды.
|
#4
|
||||
|
||||
![]() Почему 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. |
#5
|
||||
|
||||
![]() Нет инициализации i
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
||||
|
||||
![]() А как инициализировать i?
|
#7
|
||||
|
||||
![]() Добавил в конце кода:
Код:
initialization i := 1; |
#8
|
||||
|
||||
![]() Код:
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. Пишу программы за еду. __________________ |
#9
|
||||
|
||||
![]() Вы абсолютно не правы. FPosition по прежнему = 3, если добавить "FPosition+":
Код:
procedure TForm1.TrackBar1Change(Sender: TObject); begin FPosition:=FPosition+TrackBar1.Position; end; |
#10
|
||||
|
||||
![]() если не нужно!
Пишу программы за еду. __________________ |
#11
|
||||
|
||||
![]() Цитата:
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#12
|
||||
|
||||
![]() Цитата:
|
#13
|
|||
|
|||
![]() Очевидно же. OnChange вызывается первый раз когда нажимаешь кнопку мыши, второй раз - когда сдвигаешь ползунок, и третий раз - когда отпускаешь кнопку.
|
Этот пользователь сказал Спасибо CynicRus за это полезное сообщение: | ||
SpectraL (30.03.2015)
|
#14
|
||||
|
||||
![]() в мему будет писаться только 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. Пишу программы за еду. __________________ |
#15
|
||||
|
||||
![]() Цитата:
|