使用代码添加了一个表单，然后想修改里面的字体等信息，但修改字号好像无法调整显示的大小
tsxx="提示信息"
msgjg=2
PUBLIC OFORM1
OFORM1=NEWOBJECT("form1")
OFORM1.SHOW
DEFINE CLASS FORM1 AS FORM

    TOP = 0
    LEFT = 0
    HEIGHT =147
    WIDTH = 528
    SHOWWINDOW = 1
    DOCREATE = .T.
    CAPTION = "系统提示"
    WINDOWTYPE = 1
    NAME = "form1"
    ALWAYSONTOP=.T.
    AUTOCENTER=.T.
    BORDERSTYLE=0
    CLOSABLE=.t.
    minbutton=.f.
    maxbutton=.f.
    CONTROLBOX=.t.


        
    ADD OBJECT Label1 AS Label WITH ;
        TOP = 15, ;
        LEFT = 70, ;
        HEIGHT = 60, ;
        WIDTH = 450, ;
        fontsize=12
        &&不能设置字体大小，更改这个字号感觉无效
    ADD OBJECT Commandyes AS Commandbutton WITH ;
        TOP = 100, ;
        LEFT = 270, ;
        HEIGHT = 40, ;
        WIDTH = 80, ;
        Caption="是"
        fontsize=12

    PROCEDURE Commandyes.click
        msgjg=6
        THISFORM.RELEASE
    ENDPROC

    ADD OBJECT Commandno AS Commandbutton WITH ;
        TOP = 100, ;
        LEFT = 400, ;
        HEIGHT = 40, ;
        WIDTH = 80, ;
        Caption="否"
        fontsize=12

    PROCEDURE Commandno.click
        msgjg=7
        THISFORM.RELEASE
    ENDPROC
   
ENDDEFINE

试试  Visible=.T.

有效的

ADD OBJECT Commandyes AS Commandbutton WITH ;
        TOP = 100, ;
        LEFT = 270, ;
        HEIGHT = 40, ;
        WIDTH = 80, ;
        Caption="是" , ;
        fontsize=12

缺少红色的东西

收到的鲜花

• sam_jiang 于 2021-10-28 15:44 送鲜花  1朵