读书人

vfp,prg文件调用第一个窗体(登录)不为

发布时间: 2012-04-14 17:14:21 作者: rapoo

vfp,prg文件调用第一个窗体(登录)不为当前窗体的问题
CLEAR
CLEAR ALL
SET ESCAPE OFF
SET TALK OFF
SET CENTURY on
SET DATE ANSI
SET DELETED ON
IF DATE()>CTOD("2020-01-01") then
MESSAGEBOX('Software Expired...')
RETURN
ENDIF
_screen.Visible= .F.
PUBLIC Nowpath
Nowpath=SYS(5)+SYS(2003)+"\"
set default to (Nowpath)&&设置默认工作目录
&&set default to "&Nowpath"&&设置默认工作目录
DO FORM fmaa
READ events
&&QUIT

以上是我的主文件main.prg
其调用fmaa.scx表单(顶层表单,模式)
编译成exe后,运行exe则fmaa.scx表单标题栏是灰的,也就是不是当前窗体,总是这样,如何解决?哪出的问题?你们如何做?谢谢

[解决办法]
这个问题我刚学会不久,偷偷告诉你答案吧!

在fmaa.scx的Activate事件中写入如下两行代码:

SQL code
DECLARE Long SetActiveWindow IN WIN32API Long hWnd SetActiveWindow(thisform.HWnd)
[解决办法]
新建一个文件"config.fpw",里面写上“screen=off”(双引号内)
然后把此文件添加到工程中的other中other files中,然后重新编译。

如果不想重新编译也可以:把此文件放到程序所在目录下。

新建“config.fpw”的方法:先建一个文本文件,然后再把扩展名改为.fpw

读书人网 >VFP

热点推荐