德爾菲跳動

什麼是最好的解決方案來表明應用程序正在做什麼？德爾菲跳動

我試着顯示一個進度指示器，但沒有奏效。

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

一個進度條，工作正常，但不是我想要的。

我想展示一個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.

的圖像