TAlign

[dvlt]

Hola compañer@s,
tengo un pequeño problema, veréis, necesito hacer una conversión de un string a un tipo TAlign, dado que en ese string tengo por ejemplo 'alClient' pero al asignarlo a la propiedad me dice que los tipos no coinciden. No consigo dar con la forma de hacerlo... Alguien se ha encontrado con esto antes?

Gracias a todos!

[[enecumene]]

Empezado por dvlt

Hola compañer@s,
tengo un pequeño problema, veréis, necesito hacer una conversión de un string a un tipo TAlign, dado que en ese string tengo por ejemplo 'alClient' pero al asignarlo a la propiedad me dice que los tipos no coinciden. No consigo dar con la forma de hacerlo... Alguien se ha encontrado con esto antes?

Gracias a todos!

Hola podrias mostrarnos su codigo para ver lo que estas haciendo o al menos nos puedes dar un poco mas de informacion acerca de lo que intentas hacer?.

Saludos.

[dvlt]

Claro,
a ver, el tema esta que en una cadena tengo el align que voy a darle a un componente, por ejemplo, un GroupBox que quiero que su propiedad Align sea 'alClient'. Bien, ese string no es de tipo TAlign, necesito convertir mi string al tipo TAlign.

Eso es todo, pero no consigo hacerlo

Gracias de nuevo!

[Gaim2205]

Y porque no asignas directamente el valor a una variable Talign, y despues esa variable asignala al componente. P.Ej:

Código Delphi [-]
var
al : Talign;
begin
al := alLeft;
GroupBox1.Align := al;
end;

Porque hacer una conversion tipo StrToTalign creo que sería complicado.
Digo.. este codigo que puse yo es totalmente innecesario pero quiero decir que puedes asignarle un valor a la variable tipo talign en cualquier lugar de tu codigo en vez de asignarselo a una string y despues tratar de convertir.

[dvlt]

El problema es que leo de un xml y me devuelve un string, de ahi que tenga que hacer la conversión, sino ya se lo metería directamente el valor.

Gracias de todos modos

[[enecumene]]

Empezado por dvlt

El problema es que leo de un xml y me devuelve un string, de ahi que tenga que hacer la conversión, sino ya se lo metería directamente el valor.

Gracias de todos modos

Esa información no la habias expuesto anteriormente, si lo hubieras dicho habria mas respuestas y mas acordes. .

Saludos.

[[egostar]]

Una forma facil y sin meternos en complicaciones es haciendo esto:

Código Delphi [-]
 
if valorXML = 'alClient' then
   objeto.TAlign := alClient;

Salud OS

[[AzidRain]]

Los valores de TAlign no son cadenas por eso no los pueden asignar como lo estas haciendo. alClient, alTop, alRight...etc. son todas constantes de tipo númerico.

[dvlt]

Numérico, pero de que tipo? Como convierto el string a ese tipo de numérico? La ayuda de Delphi no me da ningún otro tipo que no sea TAlign

[dvlt]

Nada, ya esta... jejeje, dejo la solución por aqui por si a alguien le interesa

Solo hay que pasar el string a entero y este a un tipo Variant ole ole

[adfa]

Esto capaz que te servia.

El tipo TAlign se define así:
TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom);
Osea que los valores son numeros del 0 al 6
Si hacer objeto.Align := TAlign(1); lo pone alTop

Saludos

[[enecumene]]

Empezado por adfa

Esto capaz que te servia.

El tipo TAlign se define así:
TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom);
Osea que los valores son numeros del 0 al 6
Si hacer objeto.Align := TAlign(1); lo pone alTop

Saludos

Hola, gracias a ti me he aprendido algo nuevo, un 10!!

Saludos.

[dvlt]

Hola de nuevo!
Siguiendo con este hilo, y con el echo de que creo componentes en tiempo de ejecución... a ver, intento recuperar un componente creado en tiempo de ejecución para repintarlo, pero no consigo encontrarlo, ni por el nombre ni recorriendo uno a uno los elementos del form... alguna idea más?

Gracias de nuevo!

[jachguate]

Es posible recuperarlo por el nombre. Por ejemplo:

Código Delphi [-]
begin
  with TButton.Create(Self) do
  begin
    Parent := Panel1;
    Name := 'BotonX';
    OnClick := BotonXClick;
  end;
end;
//...
//...
begin
  TButton(FindComponent('BotonX')).Caption := 'Me encontró!';
end;

Hasta luego.

[dvlt]

Pues no me lo encuentra,
es más, recorro todos los componentes del form con un bucle for, y debugando veo que solo me recorre los que ya existian en el form no los que he ido creando en tiempo de ejecución... Alguna idea de porque?

Gracias de nuevo!

[jachguate]

Seguramente no estas buscando en el owner de los objetos que has creado. Podrías mostrar la sentencia con la que creas los componentes en corrida?

Saludos.

[dvlt]

Tenías toda la razón, no buscaba en el Parent. Gracias por la indicación!!!

Saludos!

[[fjcg02]]

Si recorres todos los componentes de form y no lo encuentra quiere decir que el form no es su parent. Por ahi pueden venir tus problemas

Hubo hace pocos días un hilo hablando de este mismo tema. Buscalo que te puede ser muy interesante.

Saludos

Edito: Vaya, se me adelantaron

[Neftali [Germán.Estévez]]

Empezado por dvlt

...necesito hacer una conversión de un string a un tipo TAlign

Esto puedes hacerlo de forma fácil utilizando RTTI.
GetEnumValue y GetEnumName. Para utilizarlas puedes añadir TypInfo al USES.

Creo que lo más sencillo es un ejemplo.