_alx_

Je croyais avoir compris la gestion d'écran par Windows, et mon fil résolu.
Mais j'ai fait un nouvel essai à vitesse plus lente (45 ms. < 3*15.6 ~48 ms.) pour m'assurer si le Textout était synchrone ou pas.
Le code est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TDrawThread.Execute;
begin
  var DC := GetDC(HWnd);
  while not Terminated do
  begin
    var S := FormatDateTime('hh:nn:ss.zzz', Now);
    Winapi.Windows.TextOut(DC, 10, 10, PChar(S), Length(S));
    S := FormatDateTime('hh:nn:ss.zzz', Now) + ' *';
    Winapi.Windows.TextOut(DC, 10, 30, PChar(S), Length(S));
    Sleep(45);
  end;
end;

et le résultat:

Comment expliquer que le second événement d'écriture ait une date antérieure au premier ?