Ver Mensaje Individual
  #1  
Antiguo 18-02-2019
Avatar de Kiranov
Kiranov Kiranov is offline
Miembro
 
Registrado: ago 2012
Ubicación: Chihuahua, Mexico.
Posts: 47
Reputación: 0
Kiranov Va por buen camino
Problema aplicando tStyleManager.TrySetStyle en formularios Modales

Buenas tardes,

Antes que nada una disculpa, la verdad no sé si este lugar es el correcto para publicar esta duda.

Mi duda es la siguiente:
He creado una aplicacion donde utilizo estilos VSF (es una aplicacion VCL), el modulo donde el usuario puede configurar el estilo deseado se abre desde un boton, el cual lo lanza como Modal. Dicho formulario tiene una lista con los nombres de los estilos previamente cargados con la siguiente rutina:

Código Delphi [-]
procedure RegisterStyleFromDisk(const StyleFileName: string);
begin
  if tStyleManager.IsValidStyle(StyleFileName) then
  begin
    tStyleManager.LoadFromFile(StyleFileName);
  end
  else
    showmessage('Estilo de visualización no válido');
end;

Al momento de seleccionar el estilo deseado en la listbox se manda llamar la siguiente linea:
Código Delphi [-]
tStyleManager.TrySetStyle(rzlbstyles.items[rzlbstyles.ItemIndex],false);

El problema es que cuando se aplica el estilo deseado, la form que originalmente era Modal, queda como Modaless. Alguien ha pasado por esta situacion.

Saludos y gracias por su ayuda.
Utilizo Delphi 10.3
__________________
Kiranov (Alberto Vega)
Chihuahua, Mexico.
---------------------------------------------------------------------------------
"El hardware es lo que hace a una máquina rápida;
el software es lo que hace que una máquina rápida se vuelva lenta."

Craig Bruce en 1990
---------------------------------------------------------------------------------

Última edición por Kiranov fecha: 18-02-2019 a las 21:40:24.
Responder Con Cita