如何制作能象弹出窗口一样的控件? ( 积分: 100 )

  • 主题发起人 主题发起人 Shepherd
  • 开始时间 开始时间
S

Shepherd

Unregistered / Unconfirmed
GUEST, unregistred user!
如何制作能象弹出窗口一样的控件,其作用和一个弹出窗口差不多
能在上面放上其他的控件,还能点击原来的窗口,又有点类似Hint
但我不想用窗口 那会带一个dfm文件
 
如何制作能象弹出窗口一样的控件,其作用和一个弹出窗口差不多
能在上面放上其他的控件,还能点击原来的窗口,又有点类似Hint
但我不想用窗口 那会带一个dfm文件
 
有意思,学习一下:)
 
在form上创建一个panel,此panel当作弹出窗口,panel上一样可以放各种控件,默认时隐藏,当点击form上某个控件时再显示
 
但Panel 并不能构象弹出窗口那样 他只能在窗口中或者另一个Panel中存在
 
看看这个行不:
http://www.2ccc.com/article.asp?articleid=1513
 
CNPACK的源码中有一个
../cnpack/Source/FormsRep
可以到其主页中下载的  www.cnpack.org
* 软件名称:公共窗体库
* 单元名称:仿Foxmail动态提示窗体单元
* 单元作者:周劲羽 (zjy@cnpack.org)
* 备 注:动态提示窗体是非模态窗体,界面模仿Foxmail V4.0的提示窗口
* 该单元提供以下几个过程用于显示动态提示窗体:
* ShowMsg - 显示指定类型的动态窗体
* ShowInfo - 显示“提示”类型的动态窗体
* ShowWarning - 显示“警告”类型的动态窗体
* ShowError - 显示“错误”类型的动态窗体
* 通过设置全局变量来指定窗体属性
* ShowPos - 指定窗体出现的位置
* ShowDelay - 指定窗体显示延时,在窗体上点击左键可强迫其关闭
* 另外,还可通过设置各颜色值指定窗口颜色。
* 使用方法:在需要显示提示窗口的单元中uses本单元,当需要显示提示信息时直接
* 直接调用ShowXXXX过程即可。
* 注意事项:同一时间屏幕上可同时出现多个提示窗体,相互重叠。
* 请勿直接创建窗体实例。
 
是 CnFoxmailMsgFrm.pas,CnFoxmailMsgFrm.dfm 么
还是带有一个dfm
 
我知道这样实现很简单 而且能达到效果 但我不想用窗口
TForm是从TWinControl继承的却能够独立出现

而一般的控件不能在没有设置Parent的时候出现
 
我已经找到答案了
在CreateParams中修改参数
Params.Style := WS_POPUP or WS_BORDER;
就可以了
 
晕倒,根本就文不对题嘛, 最简单的不就是直接用 CreateWindowEx API啦
 
后退
顶部