Hi !
I implemented a TTimer in a crossplatform console application.
Under Windows, i made a infinite loop that process messages for TTimer with this code :
procedure ProcessMessages;
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 else
exit;
end;
end;
But under Linux, i cannot make it work because TranslateMessage and DispatchMessage are in the windows unit.
Do you know how i can do ?