Usando SetWindowLong / GetWindowLong

[marcoszorrilla]

La prueba la hice con D7, ahora me he descargado tu ejemplo y me ocurre lo mismo solamente funciona OnlyNumber.

Un Saludo.

[ecfisa]

Empezado por marcoszorrilla

La prueba la hice con D7, ahora me he descargado tu ejemplo y me ocurre lo mismo solamente funciona OnlyNumber.

Un Saludo.

Hola Marcos.

Si no es mucho abusar de tu tiempo ¿ Podrías probar este ejecutable compilado en mi máquina ? (el archivo está limpio)

Despues de enterarme que usas Delphi 7 estoy totalmente desconcertado... ya que me a mí todas la funciones me las ejecuta correctamente.

Un saludo y gracias.

Edito: Y ya a esta altura estoy intrigadísimo por encontrar el motivo ...

[marcoszorrilla]

Acabo de ejecutarlo y ocurre lo mismo, quizás obedezca a alguna configuración relacionada con el país.....

Un Saludo.

[ecfisa]

Hola Marcos.

Muchisimas gracias por tu atención.

Voy a investigar el por qué de tán extraño comportamiento... , y les comunico cualquier novedad.

Un saludo y gracias nuevamente.

[Casimiro Noteví]

Yo lo he ejecutado también con wine en ubuntu y funciona sólo onlynumber.
Y ahí no tiene nada que ver windows, delphi, ni nada de eso.
Qué cosas más extrañas

[ecfisa]

Hola amigos.

Acabo de pasar el código fuente a un colega que tiene Delphi XE y a él también le funciona correctamente.
Cambié la configuración regional a España y de idioma a español tomando en cuenta la observación de Marcos y nada... sigue funcionando bién.
Aunque estoy convencido que Marcos le está arrimando bastante al orígen del problema ya que el ejecutable en mi máquina funciona y en la de ustedes no.

Ante la imposibilidad reproducir que no funcione, ando dando palos a ciegas...

Leí por ahí que usar InvalidateRect podría ser necesario en algunos casos

Código Delphi [-]
procedure CenterJustifyText(Sender: TWinControl);
begin
  SetWindowlong(Sender.Handle, GWL_STYLE,
    GetWindowlong(Sender.Handle, GWL_STYLE) + ES_CENTER);
  InvalidateRect(Sender.Handle, nil, True);
end;

Pero realmente no sé si solucionará algo por que en mi caso funciona del mismo modo.


Ojalá algún compañero pueda justificar esta diferencia de comportamiento. La verdad es que no encuentro el por qué.

Un desconcertado saludo.

[Casimiro Noteví]

Pasa el código fuente del proyecto para compilarlo, a ver si es algo del compilador.