熟悉窗体设计的大虾请指教!! 写程序,同时调整Delphi窗体的四个属性:Top,Left,Width,Height. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 回复chechy(chechy)大虾:你的指教虽然可以实现,但窗体的左上角并未真正向窗体中央缩小(即不能象右下角一样逐渐以覆盖窗体中内容的方式向窗体中央缩小),能不能再给点指教?! 你试一下这几个api函数hrgn := CreateRectRgn(a,b,c,d)SetWindowRgn(hwnd,hrgn,true);你不断改变区域大小和位置,然后重设窗口。我不知道行不行,你试一下。 在控制窗体的width及heigth属性的同时,控制窗体的LEFT及TOP属性随width及heigth属性的变化而调整。 procedure TForm1.FormShow(Sender: TObject);begin AnimateWindow(Handle, 250, AW_CENTER);end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin AnimateWindow(Handle, 250, AW_CENTER or AW_HIDE);end; 你是想实现如同金山词霸那每日一贴的功效吧?好像仅仅使用Top,Left,Width,Height效果不是很好,有闪烁. 散分第三弹,速度来接分,sf50,10的整数楼得与楼层数等值分.......... 为什么我发的帖子没人回,还不许我删? 有关TreeView的一个问题,绝对有挑战性! 怎样设置断点?(初学者问题,在线等) trim用法 集合的除法运算。。 紧急求救! 用delphi5.0写的程序在delphi6.0中一定能运行吗? 如何写过程? 寻找实现HTTP的控件!NMHTTP和ICS都不能实现多个Cookie 怎样使oicq能突破公司的防火墙的限制?我不能失去网友!!!!! 新手--dll回复(游少爷)
hrgn := CreateRectRgn(a,b,c,d)
SetWindowRgn(hwnd,hrgn,true);
你不断改变区域大小和位置,然后重设窗口。
我不知道行不行,你试一下。
的变化而调整。
begin
AnimateWindow(Handle, 250, AW_CENTER);
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AnimateWindow(Handle, 250, AW_CENTER or AW_HIDE);
end;
好像仅仅使用Top,Left,Width,Height效果不是很好,有闪烁.