TScrollBar Как узнать ширину ползунка у TScrollBar?

[antarey]

Как узнать ширину ScrollBar-а (самой полосы прокрутки) для различных платформ Android/Windows.

 

Задача в чем - при увеличении длинны дочернего элемента скрулбара появляется полоса прокрутки и ширина дочернего элемента уменьшается, а мне надо чтобы ширина едита не менялась - а для этого  как я понимаю надо увеличить ширину скрулбара на ширину полосы прокрутки, а она разная для разных платформ 

[Brovin Yaroslav]

Использовать, когда стиль для TScrollBar загружен.

type
  TOpenScrollBar = class(TScrollBar);
  TOpenCustomTrack = class(TCustomTrack);

function GetThumbWidth(const AScrollBar: TScrollBar): Single;
var
  Track: TCustomTrack;
  Thumb: TThumb;
  ThumbWidth: Single;
begin
  ThumbWidth := 0;
  Track := TOpenScrollBar(AScrollBar).Track;
  if Track <> nil then
  begin
    Thumb := TOpenCustomTrack(Track).Thumb;
    if Thumb <> nil then
      ThumbWidth := Thumb.Width;
  end;
  Result := ThumbWidth;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  ShowMessage(GetThumbWidth(ScrollBar1).ToString);
end;