Delphi Tips 
-----------------------------

0132  D1   D2   D3   D4   D5   D6   D7   3.1   95   98    作成: 1999/02/08 osamu rev 1.1
   B1   B3   B4   B5   B6   B7   NT3   NT4   2K   XP  更新: 1999/02/08 osamu 編集
ステータスバーにプログレスバーを置きたい

>ステータスバーを二つのパネルに分割して一方に文字、もう一方にprogress barを
>表示したい。

動的に作って置けばできます。Panels[0]に文字列、Panels[1]にProgressBarを置くとします。

ProgressBar1 := TProgressBar.Create(StatusBar1);
try
  with ProgressBar1 do begin
    Top := 2;
    Height := StatusBar1.Height -2 ;
    Width := StatusBar1.Panels[1].Width -2;
    Left := StatusBar1.Panels[0].Width +2;
    Max := ***.Count;
    Step := 1;
  end;
  for i := 0 to ***.Count -1 do begin
    //何らかの処理
    ProgressBar1.StepIt;
    Progressbar1.Update;
  end;
finally
  ProgressBar.Free;
end;
参照: [Delphi-ML:23558] <Win95> <コンポーネント >

[新規作成] [最新の情報に更新]

How To
Lounge
KeyWords


Tips
Delphi
Home
Osamu Takeuchi osamu@big.or.jp