德尔菲跳动

什么是最好的解决方案来表明应用程序正在做什么？德尔菲跳动

我试着显示一个进度指示器，但没有奏效。

更新：-------------

一个进度条，工作正常，但不是我想要的。

我想展示一个throbber，就像Web浏览器使用的一样，只要有东西在更新，它就会一直转动。

光标也可以在crHourGlass模式。

来源

2011-04-29 DRokie

“没有工作”是不准确的。它是如何工作的？你的两个答案已经做出了相同的假设，为什么它不起作用，但我们可能是错的！ – 2011-04-29 10:55:52

你正在寻找的词是* throbber *，所以我将它添加到你的问题中。你仍然需要告诉我们，当你说你的“进度指示器”不起作用时，你是在说什么，然后你需要说出发生了什么，以及你期望发生什么。 – 2011-04-29 12:34:41

是的。我生成图像，但可以看到它移动... – DRokie 2011-04-29 12:43:57

试试这个：

AnimateUnit

unit AnimateUnit; 

interface 

uses 
    Windows, Classes; 

type 
    TFrameProc = procedure(const theFrame: ShortInt) of object; 

    TFrameThread = class(TThread) 
    private 
    { Private declarations } 
    FFrameProc: TFrameProc; 
    FFrameValue: ShortInt; 
    procedure SynchedFrame(); 
    protected 
    { Protected declarations } 
    procedure Frame(const theFrame: ShortInt); virtual; 
    public 
    { Public declarations } 
    constructor Create(theFrameProc: TFrameProc; CreateSuspended: Boolean = False); reintroduce; virtual; 
    end; 

    TAnimateThread = class(TFrameThread) 
    private 
    { Private declarations } 
    protected 
    { Protected declarations } 
    procedure Execute(); override; 
    public 
    { Public declarations } 
    end; 

var 
    AnimateThread: TAnimateThread; 

implementation 

{ TFrameThread } 
constructor TFrameThread.Create(theFrameProc: TFrameProc; CreateSuspended: Boolean = False); 
begin 
    inherited Create(CreateSuspended); 
    FreeOnTerminate := True; 
    FFrameProc := theFrameProc; 
end; 

procedure TFrameThread.SynchedFrame(); 
begin 
    if Assigned(FFrameProc) then FFrameProc(FFrameValue); 
end; 

procedure TFrameThread.Frame(const theFrame: ShortInt); 
begin 
    FFrameValue := theFrame; 
    try 
    Sleep(0); 
    finally 
    Synchronize(SynchedFrame); 
    end; 
end; 

{ TAnimateThread } 
procedure TAnimateThread.Execute(); 
var 
    I: ShortInt; 
begin 
    while (not Self.Terminated) do 
    begin 
    Frame(0); 
    for I := 1 to 8 do 
    begin 
     if (not Self.Terminated) then 
     begin 
     Sleep(120); 
     Frame(I); 
     end; 
    end; 
    Frame(0); 
    end; 
end; 

end.

1单元

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ExtCtrls, ImgList; 

type 
    TForm1 = class(TForm) 
    ImageList1: TImageList; 
    Image1: TImage; 
    Button1: TButton; 
    Button2: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    procedure UpdateFrame(const theFrame: ShortInt); 
    end; 

var 
    Form1: TForm1; 

implementation 

uses 
    AnimateUnit; 

{$R *.DFM} 
procedure TForm1.UpdateFrame(const theFrame: ShortInt); 
begin 
    Image1.Picture.Bitmap.Handle := 0; 
    try 
    ImageList1.GetBitmap(theFrame, Image1.Picture.Bitmap); 
    finally 
    Image1.Update(); 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    AnimateThread := TAnimateThread.Create(UpdateFrame); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    AnimateThread.Terminate(); 
end; 

end.

的图像