Delphi使用AnimateWindow创建最大化的MDI子项目

-1

我有一个使用MDI窗体的应用程序，并且我一直在尝试创建子项创建效果，并且使用Animatewindow()。Delphi使用AnimateWindow创建最大化的MDI子项目

我的问题是，我所有的MDI形式与Windowstate=wsMaximized，不知道如何不显示默认的经典窗口调整大小和与动画创建表单......

这是什么我尝试：

procedure FORMCREATOR(t_form:tformclass); 
var form:tform; 
begin 
    frmain.sPanel5.Hide; 
    frmain.LockClientWindowUpdate;  
    form:=t_form.Create(frmain);

//顺便说一句，如果我这样做，而不是 “t_form.Create（应用程序）”， “t_form.Create（frmain）;”它给出了一个错误..并与“....（frmain）”我不能访问形式像“form.button1.caption：='测试'”这个程序之外，访问冲突！ ..帮助plox！

frmain.UnlockClientWindowUpdate; 

    AnimateWindow(form.Handle,500,AW_CENTER or AW_SLIDE or AW_VER_POSITIVE); 
end;

所以，当我把这种，它只是创建表单像没有Animatewindow() ......它时，才显示最大无作用:(..

伙计们，请给我一个小手！感谢

来源

2013-04-23 Flávio Gameiro

没有答案，因为它不是可用的，但也许是一个playgroud：With TForm4.Create（self）do begin Formstyle：= fsNormal; visible：= false; Width：= Application.Mainform.ClientWidth; 高度：= Application.Mainform.ClientWidth; 父母：=自我; AnimateWindow（句柄，2000，AW_CENTER或AW_SLIDE或AW_VER_POSITIVE）; 父母：=无; FormStyle：= fsMDIChild; 结束; – bummi 2013-04-23 15:23:40

工程就像一个魅力..但我做了一些修改的代码，我想发布的解决方案..但我需要等待8小时？：/ – 2013-04-23 16:14:08

是的：http://meta.stackexchange.com/questions/89063/answering-own-question-now-has-8-hour-limit但没有必要着急... – bummi 2013-04-23 16:48:47

随着@bummi的想法..

我改变了这个：

procedure tfrmain.FORMCREATOR(t_form:tformclass); 
var form:tform; 
nome_form:string; 
begin 
    frmain.sPanel5.Hide;  

    frmain.lockClientWindowUpdate; 

    With t_form.Create(frmain) do 
    begin 
     visible := false; 
     Formstyle := fsNormal; //Now i'll make all my forms as fsnormal 
     Parent := self; 

     Width := frmain.sPanel5.width; 
     Height := frmain.sPanel5.height;  
     left:=frmain.sPanel5.left; 
     top:=frmain.sPanel5.Top;

//这Spanel5是假定客户区会在哪里MDI子，这就是为什么我在程序

  frmain.UnlockClientWindowUpdate; 

     AnimateWindow(handle,1000, AW_CENTER or AW_SLIDE or AW_HOR_NEGATIVE); 

     frmain.lockClientWindowUpdate; 

     Parent := frmain; 
     FormStyle := fsMDIChild; 
     windowstate:=wsmaximized; 

     frmain.unlockClientWindowUpdate; 
    end;  
end;

而且的beggining隐藏....是啊！它完美的作品，没有图像闪烁，这样的事情！ ;）非常感谢！

来源

2013-04-24 10:05:42

Delphi使用AnimateWindow创建最大化的MDI子项目

回答

相关问题