Recherche:

Merci pour ces infos :D

Je dirais plutôt sur la taille de la zone cliente ;)
Enfin, quoi qu'il en soit, ma méthode fonctionne pour ce que je veux en faire :mrgreen:

Tu en es sûr? J'ai pourtant essayé avec un Edit Flat (BevelInner à bvNone, BevelKind à bkFlat et BorderStyle à bsNone en laissant BevelWidth à 0), on a encore la bonne valeur ;)
De toutes, façons,...

J'ai bien l'impression que c'est plus subtil: Dans mon exemple, j'ai une Font Arial à 12 et il me renvoie... 18 :P Ce qui correspond exactement à la hauteur de la zone de sélection et du caret....

J'ai trouvé :D


function GetCaretHeight(aEdit: TCustomEdit): integer;
var
DC: HDC;
SaveFont: HFONT;
aFont: HFONT;
Metrics: TTextMetric;
begin

Salut Cl@udius :D

Merci pour ta réponse :D

Ton code ne fonctionne (la hauteur renvoyée n'est pas bonne) pas en revanche, cela me donne une sérieuse piste à suivre!
Je vais essayer de fouiller...

Justement, je ne cherche pas à le modifier mais bien à récupérer sa hauteur.
Bon bah va encore falloir ruser :P A moins que quelqu'un ait une solution?

Salut à tous :D

Voila, je cherche à récupérer, dans un TEdit, la hauteur de la zone de saisie. Je m'explique:
Si vous mettez un TEdit sur une fiche, exécutez et écrivez du texte. Sélectionnez...