在 Form 上放一個 ProgressBar(name=progressBar) 和 Label(name=lblProgress)
- lblProgress.Parent := progressBar;
- lblProgress.AutoSize := False;
- lblProgress.Transparent := True;
- lblProgress.Top := 0;
- lblProgress.Left := 0;
- lblProgress.Width := progressBar.ClientWidth;
- lblProgress.Height := progressBar.ClientHeight;
- lblProgress.Alignment := taLeftJustify;
- lblProgress.Layout := tlCenter;
沒有留言:
張貼留言