Alinear texto en TEdit y TMaskEdit

[mrmanuel]

Hola a todos.

Quisiera alienar a la derecha un numero, en formato de texto, en un campo de tipo TEdit y TMarkEdit. El ancho de los Campos no es siempre el mismo, depende de la pantalla que esté mostrando en ese momento.

A alguien se le ocurre alguna idea?

Tengo la version 7 de delphi.

Gracias a todos por adelantado.

[Gydba]

En torry.net tenés componentes con código que hacen lo que decís.

De todas formas en algún momento me habia hecho un componente haciendo algo como:

type TComponente :class(TEdit)
protected
   procedure CreateParams(var Params :TCreateParams); override;
   ...
end;

procedure TComponente.CreateParams(var Params :TCreateParams);
begin
   inherited CreateParams(Params);
   Params.Style := Params.Style or ES_RIGHT;
   ...
end; 

...

Alguna idea te va a dar...

[mrmanuel]

Me he bajado un componente de la pagina de Torry, y funciona perfectamente para los Edit, pero para las Mascaras no he econtrado nada.

Gracias por todo

[__cadetill]

Puedes probar el TCurrencyEdit de las RxLib que, a parte de funcionar sólo para la entrada de números, te permite porner máscaras, alinear donde quieras.....

[roman]

Otra humilde opción es bajarte mi componente (muy sencillita) TAlignEdit que permite alinear a tu gusto (izquierda, derecha o centrado) un Edit y que de la misma forma se puede aplicar a un MaskEdit.

// Saludos

[mrmanuel]

A Roman.

El componente que me bajé, y he estado medio probando (No le ha podido meter mano a fondo, entre otras cosas porque no entiendo mucho) es el AlignEdit de la pagina de Torry, según el nombre, supongo que será el mismo, de todas formas comprobaré el enlace que me indicas.

[roman]

Empezado por mrmanuel

A Roman.

El componente que me bajé, y he estado medio probando (No le ha podido meter mano a fondo, entre otras cosas porque no entiendo mucho) es el AlignEdit de la pagina de Torry, según el nombre, supongo que será el mismo, de todas formas comprobaré el enlace que me indicas.

Hombre no, seguro que no es el mismo, es sólo que soy poco original para los nombres. Y ya que lo mencionaste me fui a Torry y el que ví pues sí, es prácticamente idéntico al mío.

// Saludos

[mrmanuel]

Nuevamente a Roman.

Una preguntita muy tonta: ¿Como utilizo el susodicho AlignEdit.pas?.

Veo que tiene procedimientos, pero como lo relaciono con un edit en mi formulario?

Gracias por adelanto.

[roman]

La componente es eso, una componente, de manera que no lo relacionas con un edit que ya tengas sino que lo usas en lugar de dicho edit.

Esto claro, tiene el inconveniente de tener que sustituir todas las componentes edit que ya tengas y quieras poder alinear. Pero si tal es el caso (muchas componentes y quieres alinearlas todas ellas) puedes usar el truco 3528:

En lugar de instalar la componente la declaras con el mismo nombre que la original, antes de la declaracíon del formulario:

type
  TEdit = class(StdCtrls.TEdit)
  end;

y pones la implementación de la componente.

Esto "confunde" al compilador y lo fuerza a crear las componentes nuevas en lugar de las viejas.

// Saludos

[mrmanuel]

Muchas gracias Roman,

ya he conseguido hecharlo a andar.

Gracias nuevamente

[mrmanuel]

yo nuevamente,

Respecto al truco 3528, a que te refieres?, a www.q3.nu/trucomania?

saludos

[roman]

Empezado por mrmanuel

yo nuevamente,

Respecto al truco 3528, a que te refieres?, a www.q3.nu/trucomania?

saludos

Esteeee, no. No me refiero a nada es sólo un número que me inventé.

// Saludos