Alineación derecha en un TEdit

[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