Alineación derecha en un TEdit

[Angel.Matilla]

En una aplicación hecha con BCB 6, ¿hay alguna manera de que un TEdit / TLabeledEdit se alinee a la derecha? He estado mirando y no soy capaz de encontrar la manera.

[[ElDioni]]

No se a partir de que versión pero anteriormente el objeto TEdit no incluía la propiedad de alineado de texto. Si buscas en el foro TAlignEdit encontrarás un componente que creó, si no recuerdo mal, román, que a mí me ha ayudado hasta que adquirí la versión XE7 que si lleva la alineación en los edit.

Saludos.

[_Leo]

Empezado por Angel.Matilla

En una aplicación hecha con BCB 6, ¿hay alguna manera de que un TEdit / TLabeledEdit se alinee a la derecha? He estado mirando y no soy capaz de encontrar la manera.

Prueba con lo siguiente en el constructor del Form por ejemplo:

Código PHP:

HWND h = Edit1->Handle;
SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) | ES_RIGHT); 


[ecfisa]

Hola.

Otra opción:

Código PHP:

...
TSysLocale OldSysLocale = SysLocale;

void __fastcall TForm1::Button1Click(TObject *Sender) // u OnCreate
{
  SysLocale.MiddleEast = true;
  Edit1->BiDiMode = bdRightToLeft;
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  SysLocale = OldSysLocale;
} 


Saludos

[Angel.Matilla]

Empezado por _Leo

Prueba con lo siguiente en el constructor del Form por ejemplo:

Código PHP:

HWND h = Edit1->Handle;
SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) | ES_RIGHT); 


Funciona a la perfección. Gracias Leo.

Empezado por ecfisa

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender) // u OnCreate
{
  SysLocale.MiddleEast = true;
  Edit1->BiDiMode = bdRightToLeft;
} 


También funcina, aunque no debería:

Alignment does not change for controls that are known to contain number, date, time, or currency values. For example, with data aware controls, the alignment does not change for the following field types: ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftAutoInc.

Sin embargo te obliga a andar modificando las variables del sistema. Muchas gracias a los dos por las soluciones.

[[ElDioni]]

De nada hombre, para esto estamos.

Saludos.

[Angel.Matilla]

Me está ocurriendo algo curioso. Con este código:

Código PHP:

__fastcall TfRecMod::TfRecMod(TComponent* Owner)
     : TForm(Owner)
{
     HWND h;

     h = this->Cuota->Handle;
     SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) | ES_RIGHT);

     h = this->Importe->Handle;
     SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) | ES_RIGHT);
[... etc.]
} 


Me está saliendo esto


Sin embargo en otros formularios, con el mismo código, lo hace bien. ¿Cuál puede ser la razón?