AnimateWindow 函数的用法(50分)

  • 主题发起人 主题发起人 question
  • 开始时间 开始时间
Q

question

Unregistered / Unconfirmed
GUEST, unregistred user!
需要一个使用的例子。<br>显示的窗口需要动态创建,如<br>&nbsp; with TFrmServingsArea.Create(Application) do begin<br>&nbsp; &nbsp;Try<br>&nbsp; &nbsp; Top:=0;<br>&nbsp; &nbsp; Left:=0;<br>&nbsp; &nbsp; Height := iScreenSizeY;<br>&nbsp; &nbsp; Width := iScreenSizeX;<br>&nbsp; &nbsp; ShowModal;<br>&nbsp; &nbsp;finally<br>&nbsp; &nbsp; Free;<br>&nbsp; end;<br>
 
1)如果你是想控制窗体本身,如FORM1<br>  需要在Create或Active事件中设置属性top,left等的值,<br>  不必ShowModal,只Refresh一下就行了。<br>2)如果是另一个函数体,在运行过程中动态改变属性或再显示窗体。<br>  则,再控制函数中先改变受控窗体的属性,如:Form2.Top, Form2.Left等。<br>  然后,执行Form1.ShowModal。<br>3)如果根本没有Form1,临时申请的变量,<br>  则:<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; Form2:TForm;<br>begin<br>&nbsp; &nbsp; &nbsp; &nbsp; Form2 := TForm.Create(Form2);<br>&nbsp; &nbsp; &nbsp; &nbsp; Form2.Top := 0;<br>&nbsp; &nbsp; &nbsp; &nbsp; Form2.Left := 0;<br>&nbsp; &nbsp; &nbsp; &nbsp; Form2.Position := poScreenCenter;<br>&nbsp; &nbsp; &nbsp; &nbsp; ... ... ...<br>&nbsp; &nbsp; &nbsp; &nbsp; Form2.ShowModal();<br>end;<br>
 
错了,我是想知道如何在 Delphi 程序中使用 AnimateWindow 这个<br>函数来动画显示窗口,而这个窗口我需要动态创建。
 
哪位高人能给个使用这个函数的例子?
 
能给个例子吗?<br>SOS
 
AnimateWindow 是干吗使的?有什么效果?
 
animatewindow(hwnd: HWND, idani:integer,rect1:trect, rect2: trect)<br>idani must be 3,<br>rect1: starting rectangle<br>rect2: ending &nbsp;rectangle
 
????<br>不太明白?
 
AnimateWindow 是干吗使的?有什么效果?从哪找?<br>
 
怎么我在Win2000里看到的声明不一样?我的是这样的:<br><br>AnimateWindow(hwnd: HWND;dwtime: cardinal; dwflag: cardinal)<br><br>至于用法,试一试就知道了。<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; &nbsp; &nbsp;animatewindow(handle,500,1)<br>end;<br><br>dwflag=1,3: &nbsp; 窗口从左到右显示出来<br>dwflag=2: &nbsp; &nbsp; 窗口从右到左显示出来<br>dwflag=4,12: &nbsp;窗口从上到下显示出来<br>dwflag=5,7,13,15: &nbsp; 窗口从左上角向右下角展开<br>dwflag=6,14: &nbsp;窗口从右上角向左下角展开<br>dwflag=8: &nbsp; &nbsp; 窗口从下到上显示出来<br>dwflag=9,11: &nbsp;与6相反<br>dwflag=10: &nbsp; &nbsp;与5,7相反<br>dwflag=16: &nbsp; &nbsp;从窗口中心扩展开来<br><br>……好像没有了……
 
to CathyEagle.<br>你的方法我用过,可你还能控制你动画了的窗口吗?我这里什么都不能控制(如关闭),如果你可以能给个完整的代码吗?<br>PS:我希望能动画另一个没有显示的窗口。<br>如:创建了 form2 在 form1中,显示 form2<br>Thank you!
 
试了一下……<br>1、如果只有一个窗口,在Create中加animatewindow,则窗口是可以关闭的。<br>2、在form1中创建form2,<br>&nbsp; &nbsp;……<br>&nbsp; &nbsp;form2 :=Tform2.Create(self);<br>&nbsp; &nbsp;animatewindow(form2.handle,1000,5);<br>&nbsp; &nbsp;form2.show;<br>&nbsp; &nbsp;form2.update;<br>&nbsp; &nbsp;……<br>&nbsp; &nbsp;首先,form2是动画显示出来的,其次,用form2.show的话,可以关闭form2,但是如果用form2.showmodal,则控制不了form2,不知道为什么。<br>
 
To CathyEagle:<br>我也是这个问题一直没有解决,同时,如果我想动画一个TabSheet如何作?(如果<br>这里面包含Panel控件,那他不会被显示)。<br>PS:先给你加分。<br>Thank you! 看来这个问题很难有满意的答案。
 
接受答案了.
 
后退
顶部