VPF::processmessages и курсор - Форум программистов

Chyslyvchyk

Дата 10.8.2007, 09:31 (ссылка)

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

Загрузка ...

Опытный

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

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

В цикле while not table.eof do берутся данные из двух полей и прописываются на форме в две labels. Чтобы их было видно в процессе выполнения цикла, используется application.processmessages. В итоге перестает работать screen.cursor := crhourglass.

Как заставить курсор быть crhourglass и отображать динамически инфу в labels во время цикла?

Это сообщение отредактировал(а) Chyslyvchyk - 10.8.2007, 09:58

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

Простота - сестра таланта!

Telepyz

Дата 10.8.2007, 10:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


screen.cursor := crHourGlass;
 while not table.eof do
  // твой цикл
screen.cursor := crDefault;

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

обновить драйвер

BaD_SeCt0R

Дата 10.8.2007, 12:31 (ссылка)

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

Загрузка ...

Lazy Coder

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

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  Screen.Cursor:=crHourGlass;
  for i:=0 to $FFFF do
   begin
    //...
    Label1.Caption:=inttostr(i);
    Application.ProcessMessages;
   end;
  Screen.Cursor:=crDefault;
end;

У меня все работает smile

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

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

Bose

Дата 10.8.2007, 13:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

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

Цитата(Chyslyvchyk @ 10.8.2007, 09:31

)

Чтобы их было видно в процессе выполнения цикла, используется application.processmessages.

Вместо application.processmessages можно вызывать Label.repaint

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

Лучшее о Delphi за 2013 год. Подборка ссылок.

Chyslyvchyk

Дата 13.8.2007, 02:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


screen.cursor := crHourGlass;
  while not table.eof do
    begin
    Label.Caption:=table.fieldbyname('fieldname').asstring;
    Application.ProcessMessages;
    table.Next;
    end;
screen.cursor := crDefault;

Работать-то работает, а вот курсор отображает, как crDefault. :(

А вот Label.repaint - это "то, что доктор прописал"! Спасибо!

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

Простота - сестра таланта!

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