写程序,同时调整Delphi窗体的四个属性:
Top,Left,Width,Height.

解决方案 »

  1.   

    回复chechy(chechy)大虾:你的指教虽然可以实现,但窗体的左上角并未真正向窗体中央缩小(即不能象右下角一样逐渐以覆盖窗体中内容的方式向窗体中央缩小),能不能再给点指教?!
      

  2.   

    你试一下这几个api函数
    hrgn := CreateRectRgn(a,b,c,d)
    SetWindowRgn(hwnd,hrgn,true);
    你不断改变区域大小和位置,然后重设窗口。
    我不知道行不行,你试一下。
      

  3.   

    在控制窗体的width及heigth属性的同时,控制窗体的LEFT及TOP属性随width及heigth属性
    的变化而调整。
      

  4.   

    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;
      

  5.   

    你是想实现如同金山词霸那每日一贴的功效吧?
    好像仅仅使用Top,Left,Width,Height效果不是很好,有闪烁.