Problème avec la fonction TextWidth

Bonjour,

ce code m'affiche 0 :

Code:

---

1 2 3 4

procedure TForm1.FormCreate(Sender: TObject); begin Caption := IntToStr(TextWidth('1234567890ABCDEF')); end;

---

Au passage,

• il FAUT ajouter l'unité Graph (nécessaire pour TextWidth), ce qui a comme conséquence de dévalider l'auto-suggestion de la complétion (suggestions après le '.') :furax: ;
• l'unité Graph N'EST PAS accessible par Ctrl-clic :calim2: ;
• et en farfouillant, tout ce que je trouve dans Graphh.inc c'est function TextWidth(const TextString : string) : word;.

Et enfin, le code donné dans ce lien (de 2010) ne peut plus fonctionner : il n'y a plus de propriété Canvas à l'objet TEdit, :aie:

Une idée, une suggestion ?
Merci,

[EDIT] J'ai fouiné, après avoir posté (oui je sais, j'aurais dû le faire avant, lol), et j'ai trouvé qu'il fallait ruser :

Code:

---

1 2 3 4

procedure TForm1.FormCreate(Sender: TObject); begin Caption := IntToStr(Form1.Canvas.TextWidth('1234567890ABCDEF')); end;

---

:ccool: [/EDIT]