Acoplar barra de herramientas
Tengo una barra de herramientas que he diseñado y necesito por favor acoplarla con un formulario de nivel superior automáticamente al ejecutar la aplicación(ya que la barra queda siempre flotante)
2 Respuestas
Respuesta de jorge_mota
1
Este ejemplo
Ponlo en un prg
Public oFrm
oFrm = CreateObject("toolbar")
ofrm.Visible = .t.
ofrm.AddObject('test','commandbutton')
ofrm.test.Visible = .t.
ofrm.Dock(0) && esto hace que se ancle.
Ponlo en un prg
Public oFrm
oFrm = CreateObject("toolbar")
ofrm.Visible = .t.
ofrm.AddObject('test','commandbutton')
ofrm.test.Visible = .t.
ofrm.Dock(0) && esto hace que se ancle.
Respuesta de rastadj
1
Podrías escribir en el evento init de tu barra de herramientas:
Thisform. Dock(0)
Thisform. Dock(0)