by ShumingWang » Sat Aug 27, 2011 5:50 am
test1.prg
#include "fivewin.ch"
function main()
public ownd,omenu
define window ownd FROM 0,0 TO 10,10
activate window ownd on init buildmenu(ownd)
function buildmenu(ownd)
menu omenu 2007
menuitem "aaa" action aaa()
menuitem "bbb"
endmenu
ownd:setmenu(omenu)
ownd:refresh()
return
function aaa()
local odlg
define dialog odlg resource "aaa"
activate dialog odlg nowait on init aaa00(odlg)
return
function aaa00(odlg)
local omenu2
menu omenu2 2007
menuitem "open"
menuitem "close"
endmenu
odlg:setmenu(omenu2)
odlg:refresh()
return
test1.rc
aaa DIALOG 0, 0,100, 100
STYLE WS_CHILD | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
{
}