SysMenu y/u otras opciones de la Barra de Título
Hola de nuevo compañeros del foro !
Estoy indagando acerca de modificar el SysMenu de un form, u otras opciones de tratar la barra de título de un form. He conseguido añadir mi opción al Sysmenu que se despliega cuando se pincha en el icono del Form que aparece en la barra de título, o bien cuando (en mi caso particular por ser un Form MDI), cuando se minimiza el form y aparece abajo en el contenedor MDI. Para ello utilizo el siguiente código
Quiero intentar conseguir dos opciones más. Una ponerle un icono a mi opción del Sysmenu. Para ello he encontrado la referencia a : Cita:
También me gustaría añadir una combinación de teclas 'ShortCut' a mi opción del SysMenu. Y por último preguntar si existe la opción de interceptar de alguna manera la pulsación del botón derecho del ratón sobre la barra de título, que también me serviría a falta de modificación del SysMenu. Muchas gracias por vuestra ayuda. Edito : Quiero de nuevo especificar que el evento que quiero capturar con respecto al botón derecho del ratón sobre la barra de título es en un form MDIChild. He visto que sobre el Form principal se aplica lo mismo que lo explicado para el SysMenu. |
Para obtener el handle del bitmap puedes usar la función LoadBitmap o incluso puedes usar la propiedad Handle de un objeto TBitmap.
|
Gracias de nuevo Domingo por responder tan rápido.
Puedes ponerme por favor un ejemplo de como obtener el Handle. Me pierdo con esto de los Handle. Sigo indagando y he encontrado la descripción completa de MENUITEMINFO en http://msdn2.microsoft.com/en-us/library/ms647578.aspx y de INSERTMENUITEM en http://msdn2.microsoft.com/en-us/library/ms647988.aspx , pero creo que con eso me he liado más todavía ! :o Creo que sería más conveniente utilizar INSERTMENUITEM en vez de AppendMenu. Pero Uffff !, creo que lograr insertar mi propia opción con un gráfico y una combinación de teclas va a ser un poco más complicado de lo que creía. |
La clase TBitmap tiene la propiedad Handle; Es la que yo he utilizado y me ha funcionado correctamente. Eso sí, con Delphi 6 no con .NET.
En cuanto a las ShortCut, no conseguí hacerlas aparecer; Tampoco era prioritario, así que no estuve mucho, pero en una primera pasada no conseguí que me saliera. Si lo consigues postéalo. Gracias. EDITO: Me dormí con el mensaje abierto y llegué tarde, muy tarde... |
Cita:
|
Ya me estoy aclarando con los Handle ... ;)
Sigo probando. Si logro algo concreto, aviso ! :) |
La franja horaria es GMT +2. Ahora son las 05:20:08. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi