6
我想知道如何在trackbar1.position的相反方向创建我的第二个trackbar.position镜像。 例如。 范围从1到100两个TrackBar镜像
所以当TrackBar1.Position := 2
,然后trackbar2.Position := 99
不管trackbars变为哪种方式,我想在相反的方向,以反映。
继承人我的代码到目前为止:(不感兴趣的使用键来做到这一点),只是鼠标交互。
Direction : string;
Skip : boolean;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position = TrackBar2.Position then
begin
if Direction = 'up' then TrackBar2.Position := TrackBar2.Position + 1;
if Direction = 'down' then TrackBar2.Position := TrackBar2.Position - 1;
skip := true;
end;
if TrackBar1.Position < TrackBar2.Position then
begin
if skip = false then
begin
TrackBar2.Position := TrackBar2.Position - 1;
Direction := 'down';
end;
end
else
begin
if skip = false then
begin
TrackBar2.Position := TrackBar2.Position + 1;
Direction := 'up';
end;
end;
end;
我可能过度这个。也许有一个更简单的方法。我更喜欢更简单的方式。 谢谢,
本
'tbTo.Position:= 100 - tbFrom.Position + 1;'(1-100,2-99) – teran
谢谢堆人 – Ben
@teran:我已经使用了'min:= 0'&'max:= 100'。 ..这是为什么; o)但我更新回答**确切**问题; o) – Whiler