Witam. Zna może ktoś procedure, która by działała identycznie jak Application.ProcessMessages tylko żeby nie wymagała Forms.pas, ponieważ mój cały program opiera się bez tego pliku i jest dość małych rozmiarów, lecz używam funkcji Sleep i do tego potrzebne mi jest ProcessMessages. Z góry dziękuję za odpowiedź.
0
0
wydaje mi sie ze mozna to zamienic poprzez odbior odpowiedniego komunikatu windowsa i odpowiednia odpowiedz, sam kiedys o tym myslalem ale mi wystarczyla ta procedurka
0
To uproszczona wersja:
procedure MyProcessMessages;
var
Msg: TMsg;
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
if Msg.Message <> WM_QUIT then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end
end;
end;
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.