老式滚动条,用处还是不少的。
控件属性
运行效果
示例代码
procedure TForm1.ScrollBar1Change(Sender: TObject); begin Edit1.Text:= ScrollBar1.Position.ToString; end;
补充
← TRadioGroup TToggleBox→