Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];

Вниз

Application.ProcessMessages   Найти похожие ветки 

← →
mik_1   (2004-01-01 22:29) [0]

Подскажите кто-нибудь, как работает стандартная процедура ProcessMessages.
Где можно найти справку по ней (я имею в виду встроенные хелпы)?
Задача такая: вставить в программу фрагмент, который бы позволял прерывать ее во время исполнения (вывода графики) командой с клавиатуры / мыши. Вывод графики организован в цикле.
Если приведете прямо текст такого фрагмента, то будет вообще замечательно. Заранее благодарю.

---

← →
jack128   (2004-01-01 22:48) [1]

> Подскажите кто-нибудь, как работает стандартная процедура
> ProcessMessages.
Application.ProcessMessages ??

procedure TApplication.ProcessMessages;
var
Msg: TMsg;
begin
while ProcessMessage(Msg) do {loop};
end;

> Где можно найти справку по ней (я имею в виду встроенные
> хелпы)?
Application.ProcessMessages + F1


> вставить в программу фрагмент, который бы позволял прерывать
> ее во время исполнения (вывода графики) командой с клавиатуры
> / мыши. Вывод графики организован в цикле.
> Если приведете прямо текст такого фрагмента, то будет вообще
> замечательно

procedure TForm1.Button1Click(Sender: TObject);
begin
ButtonPressed := True;
end;

while <> do
begin
// year code
Application.ProcessMessages;
if ButtonPressed then Break;
end

---

← →
Rouse_   (2004-01-01 23:55) [2]

Женя правильно тебе показал, но работает это вот так...

While GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;

Желаю успехов

---

← →
jack128   (2004-01-02 00:21) [3]

> Rouse_ © (01.01.04 23:55) [2]

Не совсем.. Если упростить, то примерно так:

> While PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
> begin
> TranslateMessage(Msg);
> DispatchMessage(Msg);
> end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c