_alx_
Membre du Club

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
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

En lire plus...