制作了个记事本，运行弹出以下内容：

该菜单只可从顶层表单中调用。确保表单的 ShowWindow 属性被设置为 2。更详细的资料，请阅读菜单 MPR 文件的头部章节。

属性设置过还是这样，其次在记事本的菜单下，有代买错误，求大佬帮忙。

刚试了一下，这样更改的话，菜单栏就不见了

试了一下菜单里的各项，会弹出找不到变量'FFLIE'

TFont=GETFONT( )
TfontName=alltrim(LEFT(TFont,AT(',',Tfont,1)-1))
Thisform.Edit1.FontName=TFontName
nStartP=AT(',',Tfont,1)+1
nEndP=AT(',',TFont,2)-1-AT(',',Tfont,1)
TFontSize=INT(VAL(ALLTRIM(SUBSTR(TFont,NstartP,nEndP))))
Thisform.edit1.FontSize=TFontSize
TFontStyle=ALLTRIM(SUBSTR(TFont,AT(',',TFont,2)+1))
DO CASE
CASE TFontStyle="B"
Thisform.Edit1.FontBold=.T.
Thisform.Edit1.Fontitalic=.F.
CASE TFontStyle="I"
Thisform.Edit1.FontBold=.F.
Thisform.Edit1.Fontitalic=.T.
CASE TFontStyle="BI"
Thisform.Edit1.FontBold=.T.
Thisform.Edit1.Fontitalic=.t.
OTHERWISE
Thisform.Edit1.FontBold=.F.
Thisform.Edit1.FontItalic=.F.
ENDCASe

saveasfile()修改两句试试：

fFile=PUTFILE("文件名","*.txt","文本文档(*.txt)")
* fp=FCREATE(fFlie,0)
fp=FCREATE(fFile,0)
* =feriteE(fp,Thisform.Edit1.Value)
=fwrite(fp,Thisform.Edit1.Value)
=fclose(fp)
Thisform.Caption=fFile
Thisform.Edit1.SetFocus
Thisform.Refresh