Alineación derecha en un TEdit

[ecfisa]

Hola.

Si como mencionas es de uso eventual, tal vez la solución mas simple sea usar en su reemplazo un componente TMemo ajustando su propiedad Alignment, v. gr.:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Memo1->Height      = 21;
  Memo1->Width       = 120;
  Memo1->Alignment   = taRightJustify;
  Memo1->WantReturns = false;
  Memo1->Text        = "3.141592654"; // un ej.
} 


Muestra:


Saludos