C++ Builder的TForm2上的ProgressBar

Question

在TForm2上，我試圖使TProgressBar開始於0％，並需要30秒才能達到100％。只要TForm1的TCheckBox被選中，TProgressBar就會開始上升。

我在谷歌上看過，但是這樣的事情讓我沒有什麼好處。

有什麼建議嗎？

TFORM1

//... 

#include "Unit1.h" 
#include "Unit2.h" 

//--------------------------------------------------------------------------- 
void __fastcall TFormOne::MyCheckBoxClick(TObject *Sender) 
{ 
    FormTwo->Show(); 
} 

TFORM2

//... 

#include "Unit2.h" 
#include "Unit1.h" 

//... 

int MSecond = 0, MyTime = 0; 

//--------------------------------------------------------------------------- 
__fastcall TFormTwo::TFormTwo(TComponent* Owner) : TForm(Owner) 
{ 
    ProgressBar->Min = 0; 
    ProgressBar->Max = 100; 
    ProgressBar->Position = 0; 
    Timer1->Enabled = true; 
} 

//--------------------------------------------------------------------------- 
void __fastcall TFormTwo::FormCreate(TObject *Sender) 
{ 
    MyTime = GetTickCount(); 
    MSecond = 0; 
    Timer1->Enabled = false; 
    ProgressBar->Position = 0; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormTwo::Timer1Timer(TObject *Sender) 
{ 
    MSecond = GetTickCount() - MyTime; 
    if (MSecond < 30000) 
    ProgressBar->Position = double Trunc(double(MSecond)/300); 
    else 
    { 
    ProgressBar->Position = 100; 
    Timer1->Enabled = false; 
    } 
} 

Answer 1

你沒有實現TFormTwo正確的您正試圖完成的任務。它應該看起來更像這個：

class TFormTwo : class(TFormTwo) 
{ 
__published: 
    TProgressBar *ProgressBar; 
    TTimer *Timer1; 
    //... 
    void __fastcall FormShow(TObject *Sender); 
    void __fastcall FormHide(TObject *Sender); 
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action); 
    void __fastcall Timer1Timer(TObject *Sender); 
    //... 
private: 
    DWORD StartTime; 
    //... 
public: 
    __fastcall TFormTwo(TComponent* Owner); 
}; 

__fastcall TFormTwo::TFormTwo(TComponent* Owner) 
    : TForm(Owner) 
{ 
    // you should set these at design-time instead 
    ProgressBar->Min = 0; 
    ProgressBar->Max = 100; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormTwo::FormShow(TObject *Sender) 
{ 
    ProgressBar->Position = 0; 
    StartTime = GetTickCount(); 
    Timer1->Enabled = true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormTwo::FormHide(TObject *Sender) 
{ 
    Timer1->Enabled = false; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormTwo::FormClose(TObject *Sender, TCloseAction &Action) 
{ 
    Timer1->Enabled = false; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormTwo::Timer1Timer(TObject *Sender) 
{ 
    DWORD MSecond = GetTickCount() - StartTime; 
    if (MSecond < 30000) 
     ProgressBar->Position = int((double(MSecond)/30000.0) * 100.0); 
    else 
    { 
     ProgressBar->Position = 100; 
     Timer1->Enabled = false; 
    } 
}