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;

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