如何控制TrackBar不能从位置1移向位置0?其他都可以移动。 :)
thanks :)
[解决办法]
看看这样行不行?
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position <= 0 then TrackBar1.Position := 1;
end;
发布时间: 2012-03-01 10:25:46 作者: rapoo
如何控制TrackBar不能从位置1移向位置0?其他都可以移动。 :)
thanks :)
[解决办法]
看看这样行不行?
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position <= 0 then TrackBar1.Position := 1;
end;