Alineación derecha en un TEdit

[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.