怎么对imgedit控件，大图片显示时加进程条

Question

好像有一个OnProgress事件,添加一个进度条,调入图片时设置进度条的值

Answer 1

我的Delphi5上怎么没有Imgedit控件？

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ExtDlgs, Jpeg;type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    OpenPictureDialog1: TOpenPictureDialog;
    ProgressBar1: TProgressBar;
    procedure Image1Progress(Sender: TObject; Stage: TProgressStage;
      PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
      const Msg: String);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
  const Msg: String);
begin
  case Stage of
    psStarting:ProgressBar1.Visible:=true;
    psRunning:ProgressBar1.Position:=PercentDone;
    psEnding:ProgressBar1.Visible:=false;
  end;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute() then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  end;
end;end.

Answer 3

值得注意的地方Image1Progress中用Stage的三个状态控制ProgressBar的显示和进度
这里用的静态的ProgressBar，方便调节（比如他的位置），不过记得把它初始的Visible设成False。
如果要读入Jpeg的话，记得在uses 中加入 Jpeg 单元。
还有Button随便用什么的，我是无意中选择了BitBtn。
还有问题的话请问。

Answer 4

当然有问题，我是说TimgEdit,不是TImage