求助!调用GDI+在表单中写文字,当showWindow为0或1时正常,但为2时(顶层表单)失效。何故?请高手帮忙。
表单中建一按钮,其click代码如下:
set path to home(1)+'ffc'
_Color = NEWOBJECT("gpColor", "_GDIplus.vcx")
_Pen = NEWOBJECT("gpPen", "_GDIplus.vcx")
_Font = NEWOBJECT("gpFont", "_GDIplus.vcx")
_StringFormat = NEWOBJECT("gpStringFormat", "_GDIplus.vcx")
_TextBrush = NEWOBJECT("gpSolidBrush", "_GDIplus.vcx")
_Point = NEWOBJECT("gpPoint", "_GDIplus.vcx")
_Graphics = NEWOBJECT("gpGraphics", "_GDIplus.vcx")
THISFORM.CLS
vsize=50
vtop=THIS.TOP+100
vleft=THIS.LEFT-30
_Color.SET(0,0,0)
_Font.CREATE("黑体", vsize, 1)
_TextBrush.CREATE(_Color)
_Point.CREATE(vleft, vtop)
WITH _Graphics
.CreateFromHWND(THISFORM.HWND) &&定位到本窗口,在此窗口中写字。
.SmoothingMode=4
.DrawStringA('+20', _Font, _Point, _StringFormat,_TextBrush)
ENDWITH
当表单的showwindow属性为“0-在屏幕中”、“1-在顶层表单中”时可正常写出文字,但设为“2-作为顶层表单”时失效(无反应)。
而我正好需要设为顶层表单。如何解决啊?