月
月满C楼
Unregistered / Unconfirmed
GUEST, unregistred user!
{pb滚动条的属性设置
pb.min:=1;
pb.step:=1;
pb.max:=10;
}
目标:[red]要使进度条上的块数就是i,怎么实现?(i <10的)[/red]
procedure Ppb(i:integer);
begin
pb.position:=0;
pb.position:=i;
end;
//这样写没效果呢
pb.min:=1;
pb.step:=1;
pb.max:=10;
}
目标:[red]要使进度条上的块数就是i,怎么实现?(i <10的)[/red]
procedure Ppb(i:integer);
begin
pb.position:=0;
pb.position:=i;
end;
//这样写没效果呢