Kiranov
18-02-2019, 21:36:06
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:
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:
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
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:
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:
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