P
panjf
Unregistered / Unconfirmed
GUEST, unregistred user!
form1中放一个Button,<br>写:<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>form: Tform2;<br>begin<br> Form := TForm2.Create(Application);<br> Form.ShowModal;<br> Form.Free;<br>end;<br><br>建一个form2,在Show里面添一句<br> AnimateWindow(handle,1000,AW_VER_POSITIVE);<br>运行,正常<br>在form2中放入一个ListBox,再运行,窗口显示时的动画消失-----为什么?<br>删掉这个ListBox,放一个Button进去,在放一个Listbox,运行,正常!!<br>#(*—·……¥<br><br>delphi7 + 2000P<br>难道是delphi的Bug?