el texto a la derecha

[delphi.com.ar]

Una simple observación:

Pese a lo que me suponía, lo he probado y funciona (no es que desconfíe de ustedes ). Siempre supuse que como en el medio oriente se escribe de derecha a izquierda, lo que esté en un edit bdLeftToRight como "texto1" sería en bdRightToLeft "1otxet"... ¿Me explico?
Como verdaderamente es, los programas guardan el sus archivos / base de datos, los datos de derecha a izquierda, contrariamente a como se escribe en el resto del mundo, debe ser bastante engorroso compatibilizar los datos entre varios países.


De todos modos, me quedo con la solución anterior... me parece un poco mas "controlada"

  TMiEdit = class(TCustomEdit)
    ...
  private
    procedure SetAlignment(const Value: TAlignment);
  published
    ...
    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
  end;
...
procedure TMiEdit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[TAlignment] of DWord = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or Alignments[FAlignment]; 
end;
...
procedure TMiEdit.SetAlignment(const Value: TAlignment);
begin
  if FAlignment <> Value then
  begin
    FAlignment := Value;
    RecreateWnd ;
  end;
end;

Saludos!