象蚂蚁的提示窗口如何制作?用什么API?好象是Animatewindow,但不知如何使用。 (30分)

  • 主题发起人 主题发起人 雨夜
  • 开始时间 开始时间

雨夜

Unregistered / Unconfirmed
GUEST, unregistred user!
我用Animatewindow做出来动画效果,但不能接收消息,关也关不了,怎么处理??
 
调用WinAPI:SetParent;
 
难道没有人知道?<br>真的是很难,还是技术封锁???
 
呵呵!不好意思!上一个答案为错误的!没仔细审题!<br>言归正传:<br>不能接收消息,关也关不了,怎么处理??什么意思???<br>你的代码怎么写的,贴一段出来看看,好吗?
 
我的代码是这样的(模拟,实际的代码在别的机器上)。<br>动态建立窗口<br>myform *a;<br>a=new myform(Application);<br>a-&gt;ShowModal();//改为Show()后可以响应消息,运行的很好,不知为什么?<br>delete a;<br><br><br>在myform的OnCreat事件中<br>Animatewindow(this-&gt;Handle,200,AW_center);//好象是这样的,具体的参数不记得了<br><br>myform能显示,但不能接收任何消息,连关也关不了!<br><br><br>
 
Showmodal方式使一个窗口为激活窗口,和Show相似,但它令窗口模式化。<br>如:Form.ShowModal后,程序会在Form返回后才执行后面的代码,而用Show就不会这样。<br>一般我们动态生成窗体都是这样:<br>var form: TForm; &nbsp; &nbsp; <br>procedure TForm1.Button1Click(Sender: TObject); <br>&nbsp; &nbsp; begin <br>&nbsp; &nbsp; &nbsp;form := TForm.Create(Application); <br>&nbsp; &nbsp; &nbsp;form.ShowModal; <br>&nbsp; &nbsp; end; <br>
 
呵呵<br>我就是要模式窗体的。<br>怎么实现呢?<br>如果不用Animatewindow,很正常的!!!<br><br><br>难到没人知道??
 
我要的模式窗口的!!!<br>难道很难?还是不能做?<br>有没有别的办法???
 
我也在找答案
 
怎么我做不出动态关闭窗口的效果啊
 
关闭时<br>AnimateWindow(form1.handle,200,Aw_hide or aw_center)<br>应该放在哪个事件中?
 
打开时 在Form的create,show事件都可以。<br>AnimateWindow(form1.handle,200,Aw_activate or aw_center)<br>关闭时 Form的Destory事件<br>AnimateWindow(form1.handle,200,Aw_hide or aw_center)<br>不过在showmodal时有问题,不接受事件。show 好了。以前有很多讨论的。<br><br>
 
On CloseQuery()!
 
应该是一个窗体,把窗体的一些属性设置一下,使之总在其它窗口前面,并且在任务栏上没有<br>“天窗”,动画是在它的画布上画一些图案吧。<br>
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
732
import
I
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
772
import
I
后退
顶部