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.
