Positionner le texte a droite dans un TEdit

Bonsoir
J'aimerais pouvoir positionner le texte entre dans un TEdit a droite, celui ci est un composant deja pose sur la Form, je ne veut pas creer un composant voir le lien de CGI, j'ai parcouru le Forum, mais les differents post n'utilise pas ma facon de faire, je ne sais d'ailleurs pas si c'est possible de cette facon

Citation:

---

http://chgi.developpez.com/compo5/

---

Je pensais pouvoir deriver de cette facon mais ca ne marche pas

Code:

---

1 2 3 4

TCreateParams *pCp = new TCreateParams(); pCp->ExStyle = pCp->ExStyle | ES_CENTER | ES_MULTILINE; pCp->WndParent = Edit1;

---

Salut, il faut lui envoyer un ES_RIGHT

Voir la page suivante: http://bcbjournal.org/bcbcaq/?caq=28

Merci Crayon
C'est une erreur de recopie qui m'a echappee c'est bien " ES_RIGHT " qui est recherche, le lien que tu donne c'est pour creer un composant TEdit modifie, ce que je voudrais c'est modifier un TEdit deja pose sur la Form par exemple " Edit1 ", dans le code poste il n'y a pas d'erreur mais rien ne se passe

Ok, essaie ceci ;)

Code:

---

1 2 3

DWORD ExStyleRight; ExStyleRight = GetWindowLong(Edit1->Handle, GWL_STYLE) | ES_RIGHT; SetWindowLong(Edit1->Handle, GWL_STYLE, ExStyleRight);

---

Tres interressant ton lien je testez justement le meme code trouve la page precedente de ton lien

Code:

---

1 2 3 4 5

// get the current style flags LONG const dwStyle = GetWindowLong(Form1->Edit1->Handle, GWL_EXSTYLE | ES_RIGHT); // add ES_NUMBER to these SetWindowLong(Form1->Edit1->Handle, GWL_EXSTYLE, dwStyle);

---

Code:

---

1 2 3 4 5

// get the current style flags LONG const dwStyle = GetWindowLong(Form1->Edit1->Handle, GWL_STYLE | ES_RIGHT); // add ES_NUMBER to these SetWindowLong(Form1->Edit1->Handle, GWL_STYLE, dwStyle);

---

il ne se passe rien

Si je remplace " ES_CENTER " par " ES_NUMBER " la ca fonctionne

Est-ce que tu as essayer de mettre un "break point" et de regarder le contenue de dwStyle pour voir si sa fait sens?

" dwStyle " prend pour valeur 0

Je ne sais pas quel OS tu utilises, mais je met cette référence juste au cas...

Citation:

---

ES_RIGHT
Windows 98/Me, Windows 2000/XP: Right-aligns text in a single-line or multiline edit control. Windows 95, Windows NT 4.0 and earlier: Right aligns text in a multiline edit control.

---

:fleche: http://msdn2.microsoft.com/en-us/lib...64(VS.85).aspx

Sinon pour les style on a:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

/*  * Edit Control Styles  */ #define ES_LEFT 0x0000L #define ES_CENTER 0x0001L #define ES_RIGHT 0x0002L #define ES_MULTILINE 0x0004L #define ES_UPPERCASE 0x0008L #define ES_LOWERCASE 0x0010L #define ES_PASSWORD 0x0020L #define ES_AUTOVSCROLL 0x0040L #define ES_AUTOHSCROLL 0x0080L #define ES_NOHIDESEL 0x0100L #define ES_OEMCONVERT 0x0400L #define ES_READONLY 0x0800L #define ES_WANTRETURN 0x1000L #define ES_NUMBER 0x2000L

---

Il est a noté que sur le site web de Microsoft il est mentionné a plusieurs endroits:

Citation:

---

To change this style after the control has been created, use SetWindowLong.

---

Mais pour ES_RIGHT, ce n'est pas dit que l'on peut le changer après la création. :?

Merci pour tes renseignements Crayon
Je suis enfin parvenu a ecrire a droite dans ce fichu TEdit, grace a la Faq de nos amis Delfinaute

Citation:

---

http://www.developpez.com/delphi/faq...opri#aligntext

---

voici l'astuce

Code:

---

1 2 3 4 5 6 7

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { SysLocale.MiddleEast = True; Form1->Edit1->BiDiMode = bdRightToLeft; }

---

Si tu as installé la librairie JEDI, je crois que le composant "TJvEdit" a une propriété pour choisir l'alignement.

Le but etait ne ne pas avoir recour a un composant exterieur ou a un composant cree dynamiquement, mais de deriver un composant faisant parti de la palette BCB