我想在带有Canvas的TForm上的列表中绘制小位图,但超出了TForm大小的限制,并使用垂直和水平滚动来导航并允许用户显示整个区域。
我注意到TForm中有HorzScrollBar和VertScrollBar TControlScrollBar,但即使它们被检查为Visible,也无法使它们可见或可用。
我想他们只关心TForm的组件,如果我们调整TForm的大小,它们应该出现。
我是否必须使用外部TScrollBar(垂直和水平)来实现TForm客户区域的滚动(通过程序),还是有办法使用HorzScrollBar和VertScrollBar TControlScrollBar?
要在需要时自动显示滚动条(可见区域外的控件),请设置AutoScroll := true;
。
但这需要您使用控件来绘制图像。如果要显示滚动条,即使您只在表单画布上直接绘制(绘制),也可以通过将Range
属性设置为绘制区域的实际范围来实现。
EG
procedure TForm24.FormCreate(Sender: TObject);
begin
self.HorzScrollBar.Range := 1000;
end;
因此,要回答您的问题,您可以使用内置滚动条。