关于TApplication的用法,急!(100分)

  • 主题发起人 主题发起人 d5
  • 开始时间 开始时间
D

d5

Unregistered / Unconfirmed
GUEST, unregistred user!
我的主程序无法用Application的Terminate,Minimize等方法,
键入Application,pop窗口中的方法列表中不出现以上内容,
子窗体却可以,请问什么情况下会出现这种可能,如何解决?
 
application是在forms单元中定义的
只要有对forms的引用,应该都可以用application的所有方法属性和事件的。
 
我的程序中有:Uses Forms
但是不行!?
 
能不能将部分代码贴出来
 
问题基本已清楚,我的主程序中调用了Unit SvcMgr中的相关函数以取得
对Service的控制权,然而此时的Application已不再是TApplication,
而是TServiceApplication,delphi帮助中有这样一段话:
Note: Do not add the Forms or HttpApp units to the uses list of the project, because those units declare conflicting Application variables of types TApplication and TWebApplication, respectively.
那么我如何解除两者的冲突呢?
 
pop不显示没什么关系,关键是能不能用?
 
当然不能用,TServiceApplication不是TApplication的子类,
谁能解决这个冲突?
 
service是没有界面的.要最小化有何用呢?
 
sendmessage(yourwindowhandle, WM_SYSCOMMAND, SC_MINIMIZE, 0)//最小化
sendmessage(yourwindowhandle,wm_syscommand,SC_CLOSe,0)//关闭
不知道行不行
 
>>那么我如何解除两者的冲突呢?
like this:
<font color=red><B>Forms.Application</B></font>.xxxx

当不同的unit中存在同名标识符时,可以用UnitName.IdName的格式来区分
 
如果是想中断程序运行,可以直接用halt(exitcode)函数。没有任何限制
和冲突。
 
TServiceApplication没有中止方法吗?
 
后退
顶部