UC知道delphi窗体展开效果的问题
来源：百度知道 编辑：UC知道 时间：2024/06/06 01:27:14
请问delphi能否实现窗体展开效果呢，就是窗体打开的时候从中间慢慢展开。突然想到这个问题，不知道能否实现。知道的朋友帮帮忙哦，如果能实现，希望能够给出具体的代码哦
procedure TForm1.Button1Click(Sender: TObject);
begin
AnimateWindow(Form2.Handle, 1000, AW_CENTER)
end;
将 AnimateWindow(Form2.Handle, 1000, AW_CENTER) 这句写到 onshow事件里,
还有其他很多效果, 比如从透明到不透明等等