请教vfp高手，如何用顶层表单取代vfp主窗口？

Question

干嘛非要用表单啊，试一个把下面代码放入主程序中：
clea all
set talk off
set safety off
set sysmenu off
_screen.autocenter=.t.
_screen.windowstate=2
_screen.caption="欢迎使用……系统"
do form XXX.scx
read events

Answer 1

    因为主窗口的背景图片不能随窗口大小的变化而改变，而在顶层表单中可用resize方法解决，自然好办了！例如下列代码放在主窗口，如何在 _screen 的resize events方法中编写_SCREEN.IMAGE1随_screen调整尺寸而变化大小呢？if type('_SCREEN.image1')='O'.and.!isnull(_SCREEN.image1)
 else
_SCREEN.ADDOBJECT('IMAGE1','IMAGE')
endi
_SCREEN.IMAGE1.PICTURE='sjdsbmp.jpg'
_SCREEN.IMAGE1.TOP=0
_SCREEN.IMAGE1.LEFT=0
_SCREEN.image1.stretch=2
_SCREEN.IMAGE1.VISIBLE=.T.
_SCREEN.IMAGE1.WIDTH=_SCREEN.WIDTH
_SCREEN.IMAGE1.HEIGHT=_SCREEN.HEIGHT

Answer 2

用顶层表单取代SCREEN并很容易，我记得关于在顶层表单中显示菜单的做法在MSDN中有介绍，但不记得在哪一章，你可以查查看。

Answer 3

可以做一个名为main.prg的主程序，在其中写入read events
                                        do form....

Answer 4

其实,只要能把
_SCREEN.IMAGE1.WIDTH=_SCREEN.WIDTH
_SCREEN.IMAGE1.HEIGHT=_SCREEN.HEIGHT
这两行代码写入_screen 的resize 事件中就可以了,但不知如何写入?
   请各位执教!

Answer 5

做顶层表单，把desktop设为.t.可以这样隐藏vfp主窗口
_screen.move(-2000,-2000,0,0)
do form 你的顶层表单

Answer 6

_screen不能创建事件和过程，它只是一个对象类型的系统内存变量！

Answer 7

今朝有酒今朝醉,隐藏vfp主窗口后如何显示菜单的提示信息？

Answer 8

用 
 set message window  顶层表单
试试做顶层表单，把desktop设为.t，showwindow 设为2

Answer 9

有一个很方便的办法是在config.fpw中设置启动参数。

Answer 10

你把右边的某一个属性改为top(我具体也不知道是哪一个，你查一下).然后把form的inti属性加上一句“close all event"就可以了。

Answer 11

是不行，你干嘛要编写_SCREEN.IMAGE1随_screen调整尺寸而变化大小啊！
不让它变不就行了！_screen.AUTOCENTER=.T.
_screen.windowstate=2
_screen.borderstyle=1
_screen.maxbutton=.f.
_screen.caption="欢迎使用……系统"

Answer 12

建立顶层表单，然后在主程序里，application.visible=.f.,这样，就由顶层表单取代了VFP主窗口，，VFP主窗口就不会出现了，你设置图片变化的程序，可以在顶曾表单里加代码

Answer 13

et talk off    &&关闭对话模式
set safe off
set stat off   
set dele on     &&不处理已删除的记录
set cent on
set date to ansi
close all
RELEASE WINDOW 常用
if mod(day(date()),2)=0
_SCREEN.backcolor=rgb(80,180,150)
MODIFY WINDOW SCREEN TITLE "  XXXXXXXX ver X.X           XX;
XXXXXXXXXXXXX                  今天是："+dtoc(date())+"  "+cdow(date())
else
_SCREEN.backcolor=rgb(80,150,180)
MODIFY WINDOW SCREEN TITLE "  XXXXXXXX ver X.X            ;
    软件编制者：XXX                      今天是："+dtoc(date())+"  "+cdow(date())
endif
ZOOM WINDOW SCREEN MAX 
_SCREEN.controlbox=.f.
deactivate window "项目管理器"
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
set path to data;form;pic
open database kfgl
do form logo
read events
quit