Foros Club Delphi - el texto a la derecha

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - el texto a la derecha (https://www.clubdelphi.com/foros/showthread.php?t=1235)

el texto a la derecha

Holas

Gracias por sus respuestas anteriores son mas que una ayuda, gracias.

Quizas sea una tonteria lo que intento hacer pero lo he intentado de muchas maneras y no me sale. Quiero que el texto de un edit o un mascedit este alineado a la derecha.
Eje.

Se alinean asi /1212121__/ y yo quiero que sea asi /__1212121/

Gracias por su ayuda

Hola cmgenny, revisa el truco 167 de trucomania el link es:
http://www.q3.nu/trucomania/
Espero te sirva
Saludos

Holas

El truco es de como crear un componente de tipo Tedit y darle esta propiedad, eso esta bien. Y si ya tengo mis edit's creados lo unico que necesito es darele estas propiedades. se puede? Ejem porfa.

Muchisimas gracias

Prueba con este truco venido de la Galia.

Código:

procedure TForm1.Button2Click(Sender: TObject);

begin

SysLocale.MiddleEast := True;

Edit1.BiDiMode := bdRightToLeft;

end;

Un Saludo.

Hola Marcos, la puntuación de tu respuesta es 'bestial', que sencillo!!, han puesto la componente escrita en arabe (de derecha a izquierda) y la propiedad BiDiMode remata la solución.
Muy bueno por tí mostrarnos este truco galo debían publicarlo en la sección de trucos del club.
Saludos

Una simple observación:

Pese a lo que me suponía, lo he probado y funciona :eek: (no es que desconfíe de ustedes :D). 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"

Código:

  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!

aclaracion y pregunta

Yo usaba el siguiente codigo para la alineacion pero no me andava, hasta que me di cuenta que lo tenia que poner en la creacion del Formulario

SysLocale.MiddleEast := true;
Edit1.BiDiMode := bdRightToLeft

Ahora que efectos colaterales me puede traer, si yo lo utilizo para un formulario en particular y luego lo cierro, ninguno no?