Bonjour,

ce code m'affiche 0 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 '.') ;
  • l'unité Graph N'EST PAS accessible par Ctrl-clic ;
  • 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,

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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := IntToStr(Form1.Canvas.TextWidth('1234567890ABCDEF'));
end;
[/EDIT]