VPF::Как заставить курсор над формой крутиться

np9mi7

Дата 28.6.2006, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 553
Регистрация: 17.8.2003
Где: Volgograd, Russia

Репутация: 1
Всего: 10

Добрый день!

Имеется форма:

Код


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

#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;} менялся вид курсора на часики, часики крутились, после выхода из цикла менялся вид курсора, часики не крутились. Причем во время работы цикла необходимо что бы форма была доступна;

Понятное дело, что можно написать вот так:

Код


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

, но это мне не совсем подходит;

Вопрос: Как это сделать?

Заранее благодарен за ответы.

--------------------

"Я точно знаю то, что ничего не знаю..." Сократ.
evolution project

586

Дата 28.6.2006, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146

Код

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

Plamenk

Дата 28.6.2006, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 258
Регистрация: 18.2.2003

Репутация: нет
Всего: 3

Мне кажется, надо делать с помощью вспомогательного потока.

Т.е.
1. Устанавливаем курсор;
2. Запускаем поток с циклом;
3. При выходе из потока оповещаем каким-либо образм форму (Объекты синхронизации или сообщение);
4. Меняем курсор.

Vyacheslav

Дата 28.6.2006, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

Репутация: 47
Всего: 59

Что бы все было профессионально создаем
класс

Код


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

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;}

 }

И ... все.

--------------------

С уважением, Вячеслав Ермолаев

np9mi7

Дата 29.6.2006, 08:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 553
Регистрация: 17.8.2003
Где: Volgograd, Russia

Репутация: 1
Всего: 10

Vyacheslav, все очень красиво. Только как сделать так, что бы он крутился?

--------------------

"Я точно знаю то, что ничего не знаю..." Сократ.
evolution project

vvpC

Дата 29.6.2006, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 20.5.2006
Где: Москва

Репутация: нет
Всего: нет

Для этого существуют аниммированные курсоры

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »