Ecrire du texte avec TextRect d'un Canvas

Bonsoir,

Je voudrais écrire du texte dans un canvas avec la fonction TextRect.
Mon soucis est que le texte ne s'affiche pas, j'ai même essayé le code suivante :

var

TheRect: TRect;
begin
  TheRect := Rect(10,10,100,100);
  Form1.Canvas.TextRect(TheRect,10,10,'Bonjour !');
end;

Code provenant de la documentation de Delphi 6.
Sauf que le texte ne s'affiche pas.

A la base je voulais m'en servir dans un TCheckListBox, j'ai trouvé une source dessus ici qui fonctionne, mais chez moi le TextRect refuse d'afficher le texte.
Merci d'avance.

Bonsoir,
pose un bouton et

procedure TForm1.Button1Click(Sender: TObject);
var
TheRect: TRect;
begin
  TheRect := Rect(10,10,100,100);
  Form1.Canvas.TextRect(TheRect,10,10,'Bonjour !');
end;

cantador

C'est justement ce que j'ai fait, mais il écrit rien.
Par contre avec un TextOut aucun soucis, hélas c'est le TextRect don j'ai besoin.

essaie ce code en mettant ta forme en plein écran :

procedure TForm1.Button1Click(Sender: TObject);
var
TheRect: TRect;
begin
  TheRect := Rect(10,10,100,100);
  Form1.Canvas.TextRect(TheRect,10,10,'Bonjour !');
  Form1.Canvas.Brush.Color := clBlack;
  Form1.Canvas.FrameRect(TheRect);
end;

cantador

En fait là je viens de relancer Delphi et ça fonctionne, donc je capte plus rien lol
Il est con Delphi ;)

Comme ca Delphi il est con ? . Non des fois avec delphi la compilation plante, il faut dans ce cas supprimer l'exe et construire le projet et là tout rendre dans l'ordre. C'est un problème classique

ok, merci de cette information.
J'avais jamais eu le probl lol