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