TService a ProcessMessages

V případě čekání na výsledek (čehokoli, třeba jiného běžícího vlákna) jsme zvyklí u TApplication “v čekacím” cyklu použít Application.ProcessMessages (tedy pokud nechceme, aby aplikace takzvaně vytuhla). U TService taková procedura chybí, ale můžeme si ji bez problému a jednoduše napsat sami:

procedure TService1.ProcessMessages;
var Msg:TMsg;
begin
if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
Označeno s: , ,

Napsat komentář

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *

*