Вопрос Получить значение TrackBar

[tihiy_don]

Каким образом можно получить значение позиции FTrackBar?
Пробовал через Position - ругается.

 

[Nemko]

tihiy_don, Inno EE и Inno VCL работают, попробуйте простой пример, может дело в чем-то другом:

Спойлер: Exp

[Setup]
AppName=My Application
AppVersion=1.5
CreateAppDir=no

[Code]
var
  MyTrackBar: TTrackBar;

procedure Change(Obj: TObject);
begin
  WizardForm.Caption:= IntToStr(TTrackBar(Obj).Position);
end;

procedure InitializeWizard;
begin
  MyTrackBar:= TTrackBar.Create(nil);
  with MyTrackBar do begin
    Parent:=WizardForm;
    SetBounds(16, 345, 150, 45);
    OnChange:= @Change;
  end;
end;

 

[tihiy_don]

Я ошибся, дело в том, что используется компонент от FMX. FTrackBar.

 

[Andreo Fadio]

используется компонент от FMX. FTrackBar.

где это он там?

 

[tihiy_don]

где это он там?

FTrackbar.

 

[tihiy_don]

Разобрался, спасибо всем. Надо было просто сделать конверт из Single в Integer.
Код:

procedure TrackbarOnChange(Sender: TObject);
begin
  MusicObj.SetVolume(Round(VolTrackbar.GetValue));
end;

 

[Andreo Fadio]

@tihiy_don, MyTrackBar.GetValue

 

[audiofeel]

Разобрался, спасибо всем. Надо было просто сделать конверт из Single в Integer.
Код:

procedure TrackbarOnChange(Sender: TObject);
begin
  MusicObj.SetVolume(Round(VolTrackbar.GetValue));
end;

Ок. Все работает, проблема с плавностью регулировки

Спойлер: ScreenShots

 

[tihiy_don]

Хочу уточнить, что слишком размазан регулятор громкости начиная от середины и ниже. После половины если убавить, то практически звука не слышно. Min задан на 0 Max на 100.