Rafael gracias por responder. La pregunta es: solo para formularios de nivel superior funciona esto.
Te pregunto porque yo normalmente deje ver solo el formulario con el que estoy trabajando, de esta forma el nivel superior me deja mostrar varios formularios al mismo tiempo. Gracias. Walter Cómito Analista de Sistemas MP 0397 C.P.C.I.P.C. <mailto:walter.com...@gmail.com> walter.com...@gmail.com <mailto:wcom...@hotmail.com> wcom...@hotmail.com ' +54 9 351 494.4667 +54 9 3513.292.707 þ <http://www.softram.com.ar/> www.softram.com.ar Q Si no es necesario, no imprima este correo. Todos somos responsables por el cuidado del medio ambiente. NOTA DE CONFIDENCIALIDAD Este mensaje (y sus anexos) es confidencial y puede contener información de propiedad exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje por error, por favor comuníquelo inmediatamente a <mailto:walter.com...@gmail.com> walter.comito@ <http://gmail.com/> gmail.com y tenga la amabilidad de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a ninguna persona. Muchas Gracias. De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de rafael copquin Enviado el: lunes, 18 de julio de 2016 11:16 Para: GUFA List Member Asunto: [GUFA] MENU Y BARRA DE TAREAS Hola Walter. Creá una toolbar con todos los botones que necesites y grabala en una VCX. Digamos que la llamás MITOOLBAR a la clase y miscontroles.vcx a la class library Poné dicha biblioteca de clases en el entorno desde el programa con el que arrancás tu aplicación con: set classlib to miscontroles.vcx additive En un formulario de nivel superior, que es el que llamás desde el programa principal, creá una propiedad oToolBar y en el evento activate ponés este código: If Vartype(thisform.oToolBar) <> "O" thisform.oToolBar = createobject("miToolBar") thisform.oToolBar.dock(0) thisform.oToolBar.visible = .t. endif Con eso la toolbar aparece arriba y te queda prendida al margen superior. Para matarla, cuando cerrás ese formulario, en el evento destroy poné este código: If Vartype(thisform.oToolBar) = "O" thisform.oToolBar = .NULL. EndIf En cuanto a la toolbar en si, en cada uno de los eventos click de los botones ponés el código que la hace funcionar, por ejemplo, si en tu formulario tenés un evento movetop, con código que hace que el puntero se mueva hacia el principio del archivo, el primer botón de este ejemplo tendría este código: If PemStatus(_screen.ActiveForm,'movetop',5) _screen.activeform.movetop() endif Ese evento movetop podría tener el código: select (thisform.cAlias) && ponés el nombre de la tabla en esta propiedad go top Espero te sirva Rafael Copquin On 16/07/2016 16:39, Walter Comito wrote: Amigos como están, de que forma se agrega una barra de tarea o un menú dentro de un formulario. Lo que quiero es que queden anclados de alguna forma y que el usuario no pueda moverlos Gracias. Walter Cómito Analista de Sistemas MP 0397 C.P.C.I.P.C. <mailto:walter.com...@gmail.com> walter.com...@gmail.com <mailto:wcom...@hotmail.com> wcom...@hotmail.com ' +54 9 351 494.4667 +54 9 3513.292.707 þ <http://www.softram.com.ar/> www.softram.com.ar Q Si no es necesario, no imprima este correo. Todos somos responsables por el cuidado del medio ambiente. NOTA DE CONFIDENCIALIDAD Este mensaje (y sus anexos) es confidencial y puede contener información de propiedad exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje por error, por favor comuníquelo inmediatamente a <mailto:walter.com...@gmail.com> walter.comito@ <http://gmail.com/> gmail.com y tenga la amabilidad de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a ninguna persona. Muchas Gracias. <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campai gn=sig-email&utm_content=emailclient> Libre de virus. <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campai gn=sig-email&utm_content=emailclient> www.avast.com --- El software de antivirus Avast ha analizado este correo electrónico en busca de virus. https://www.avast.com/antivirus
