Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Cambiar Título A Un Message
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Cambiar Título A Un Message 
 
Hola de nuevo. Estoy cansada de buscar y no encuentro la solución a mi duda.

He creado un message.warning y el título de esta ventana es el título de mi proyecto. Me gustaría poder cambiar este título para darle el que yo quiera. O si no se puede cambiar, me gustaría eliminarlo (aunque para eso podría crear un formulario nuevo con sus botones, su imagen y su texto...).

Buscando he encontrado algo como esto:

Dialog.Title = "Texto del título"
Pero creo que esto sólo sirve para cuadros de diálogos y no para ventanas de message.

Muchas gracias.
 



 
última edición por Ortox el Sabado, 02 Enero 2010, 06:38; editado 1 vez 
Ortox - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Cambiar Título A Un Message 
 
Hola Ortox, he estado haciendo pruebas con los messages y cuando muestras un Warning, lo que se ve en la barra de titulo es el titulo de la aplicacion. He querido cambiarlo temporalmente, para que se mostrara lo que quieras y restaurarlo antes de salir del metodo, pero naturalmente la propiedad Title es de solo lectura.

No hay forma de cambiar en un dialogo de la clase message el titulo, no obstante es muy facil crearte un formulario para mensajes personalizado y que haga lo que tu pretendes y mas.

Si nadie tiene algo parecido para darte, te hago algo y te lo posteo.

Un abrazo.
 



 
ahtonio - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Cambiar Título A Un Message 
 
Hola.
Un message es un formulario modal. El nativo viene como viene y tiene las cualidades que quieres. Tu puedes crearte uno a tu medida con toda facilidad. Me invento uno como ejemplo:

Estas seríal las propiedades
property Titulo as string 'crear la propiedad Título
$Titulo as string

property texto as string 'crear la propiedad texto
$Texto as string

property read Respuesta as integer 'la respuesta que obtengas
private $Respuesta as integer

Al escribir esto habrán aparecido cuatro funciones en las que pondremos este código
private function Titulo_Read() as string
return $titulo
end

private sub Titulo_Write(Value as string)
$Titulo=value
end

private sub Texto_Read() as string
return $Texto
end

private sub Texto_Write(Value as string)
$Texto=value
end

private function Respuesta_Read as integer
return $Respuesta
end
 

Ya tienes las propiedades funcionales en tu clase. A partir de aquí en tu clase para sabe el contenido de cualquiera de las dos miras en $Titulo y en $Texto. Ahora declaremos los métodos

Public Sub Question 'método para la pregunta
Dim Icono as new picture=Interrogacion, TextoBoton as string="Ok"

HacerVentana(Titulo,Texto,Icono,TextoBoton)
end


Public Sub Info 'Método para la información
Dim Icono as new picture, TextoBoton="Si", TextoBoton2 as string = "No"
Icono.Picture=Stock["16/question"] 'ponerle el icono de interrogación
HacerVentana(Titulo,Texto,Icono,TextoBoton, TextoBoton2)
end


Public Sub Info 'Método para la información
Dim Icono as new picture
Icono.Picture=Stock["16/info"] 'ponerle el icono de información
HacerVentana(Titulo,Texto,Icono,TextoBoton)
end


Y este es el código de crear la ventana y ponerle las cosas
private sub CrearVentana(Titulo,Texto,Icono as PictureBox,TextoBoton as string, OPTIONAL TextoBoton2 as string, OPTIONAL textoboton3 as string)
Dim F as new form 'crear la ventana
Dim L as new Label(F) 'crear un nuevo label en F
Dim I as new PictureBox(F) 'crear un nuevo PictureBox en F
Dim B1 as new button(F) 'crear primer botón en F
Dim B2 as new button(F) 'crear el segundo botón
Dim B3 as new buttón(F) 'crear el tercer botón

F.text=Titulo 'poner el título 'poner el título a la ventana
F.L.text=Texto 'poner el texto en el label de la ventana
F.width=XX 'la anchura que queramos
F.Height=XX 'la altura que queramos
F.Center 'centrarlo en pantalla
F.border=1 'ponerle el borde sólido

F.B1.text=textoboton 'poner las propiedades de primer botón
F.B1.Width=XX 'la anchura que queramos
F.B1.Height=XX 'la altura que queramos
F.B1.Top=X 'la posición que queramos
F.B1.Left=X 'la posición que queramos

if B2 then 'si se dió texto para un segundo botón
   F.B2.text=TextoBoton2
   F.B2.Width=XX 'la anchura que queramos
   F.B2.Height=XX 'la altura que queramos
   F.B2.Top=X 'la posición que queramos
   F.B2.Left=X 'la posición que queramos
else
   F.B2.delete 'eliminarlo
endif

if B3 then 'si se dió texto para un tercer botón
   F.B3.text=TextoBoton3
   F.B3.Width=XX 'la anchura que queramos
   F.B3.Height=XX 'la altura que queramos
   F.B3.Top=X 'la posición que queramos
   F.B3.Left=X 'la posición que queramos
else
   F.B3.delete 'eliminarlo
endif

P.width=XX 'la anchura del icono que queramos
P.height=XX 'la altura del icono que queramos
P.Top=X 'La posición del icono que queramos
P.Left=X 'La posición del icon que queramos

F.showmodal() 'mostralo en pantalla
end


Cuando quieres usarlo en tu formulario Creas una instancia de la clase MiMessage y lanzas el método que quieras
Dim MiDialogo as new MiMensaje

...
MiDialogo.question
...

Se que tengo errores de bulto porque por ejemplo no he programado el evento click de los botones para que retornen un valor que debería ser algo así como "$respuesta=1" para el caso Si y $Respuesta=2 para el caso "No", pero lo fundamental es que te quedes con la idea.

Un saludo
 



 
última edición por soplo el Sabado, 02 Enero 2010, 11:36; editado 2 veces 
soplo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes El Objeto Message soplo General 0 Domingo, 13 Septiembre 2009, 21:42 Ver último mensaje
soplo
No hay nuevos mensajes Url En Message kotonfree General 0 Domingo, 16 Enero 2011, 18:11 Ver último mensaje
kotonfree
No hay nuevos mensajes Ayuda Message headjd General 2 Jueves, 29 Septiembre 2011, 16:02 Ver último mensaje
headjd
No hay nuevos mensajes Nombre Del Proyecto Y Título Shell General 1 Lunes, 18 Septiembre 2017, 00:31 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario