Форум программистов [Powered by Invision Power Board]

Код


//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    
    /// крутить курсор поменять вид

    int i = 0; while (i < 4000000) { ++ i;}

    /// не крутить курсор поменять вид
}

Код


    int i = 0; while (i < 4000000) { ++ i; Applicationj->ProcessMessages ();}

Код

::SetCursor(LoadCursor(0, IDC_WAIT));
int i = 0; while (i < 4000000) { ++i;}
::SetCursor(LoadCursor(0, IDC_ARROW));

Код


/////////////////////////////////////////////////////////////////////////////
// ## Назначение: Класс-обертка для изменения вида курсора
// ## Описание :  При создании объекта изменяет вид курсора на требуемый, по
// ## уничтожению объекта восстанавливает предыдущий курсор

class TWaitCursor
{

public:
    TWaitCursor(TCursor a_Cursor = crHourGlass)
    : m_OldCursor(Screen->Cursor)
     { Screen->Cursor = a_Cursor; }

    ~TWaitCursor(){ Screen->Cursor = m_OldCursor; }

private:
    TCursor m_OldCursor;

};

Код



void __fastcall TForm1::Button1Click(TObject *Sender)
{
    
   TWaitCursor Cursor;   
 
    int i = 0; while (i < 4000000) { ++ i;}

 }