VPF::Application.ProcessMessages в библиотеке. - Форум программистов

AnomaliA

Дата 24.9.2009, 11:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Сдравствуйте, у меня тут возникла небольшая проблема, в библиотеке находится Форма с компонентом, в самом теле библиотеке я указываю

Код


 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;

При этом Запускается форма и компонент начинает работать, но он ииспользует Application.ProcessMessages, который ничего не возвращает, как заставить его работать?

M
Rrader

Пользуйтесь кнопкой "Код" для подсветки листингов!

Akella

Дата 24.9.2009, 11:45 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Мало инфы.

Добавлено через 39 секунд

Цитата(AnomaliA @ 24.9.2009, 11:44

)

Application.ProcessMessages, который ничего не возвращает

Application.ProcessMessages не должен ничего возвращать. Почитай в справке для чего вообще ProcessMessages.

AnomaliA

Дата 24.9.2009, 11:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Значит я чего-то непонимаю smile

Код


  repeat
    { Значение такое, выходим }
    if RStatus = s then begin Result:= true; exit; end;
    Application.ProcessMessages;
    N := GetTickCount;
 until ( N - F >= (TimeOut) ) or (N < F);
  { Значение не такое. Таймаут закончился. }
  Result:= false;

зачем тогда нужна Application.ProcessMessages; в этом цикле?

Это сообщение отредактировал(а) Rrader - 24.9.2009, 15:33

former

Дата 24.9.2009, 12:45 (ссылка)

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

Загрузка ...

MEMS Expert

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

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

Цитата(AnomaliA @ 24.9.2009, 11:55

)

зачем тогда нужна Application.ProcessMessages; в этом цикле?

Вот сюда

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

AnomaliA

Дата 24.9.2009, 13:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот, кажись что-то подразобрал, теперь другой вопрос

Код


    while (not Terminated) and  FConnect do begin {пока порт открыт}
     { Ждем одного из событий }
     WaitCommEvent(FHandle, Mask, @ReadOL);

Почему это событие может не происходить?

Это сообщение отредактировал(а) Rrader - 24.9.2009, 15:34

Akella

Дата 24.9.2009, 21:37 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Потому что не выполняется условие, наверное.

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