delphi 7
uses commctrl;
//一般放到formshow里面
var
r: trect;
begin
sbmain.controlstyle := sbmain.controlstyle [csacceptscontrols];
sbmain.perform(sb_getrect, 1, integer(@r));
pbprogress.parent := sbmain;
pbprogress.top := r.top;
pbprogress.left := r.left;
pbprogress.width := r.right - r.left;
pbprogress.height := r.bottom - r.top;
pbprogress.visible:= false; //使用时要显示
end;
阅读(3045) | 评论(0) | 转发(0) |