S
sword_liu
Unregistered / Unconfirmed
GUEST, unregistred user!
用得着那么麻烦吗?
看看下面的代码行不行:
========================
//伸出来
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.left:=Screen.Width-form1.width;
form1.top:=screen.height-form1.height;
AnimateWindow(Self.Handle, 1250, AW_VER_NEGATIVE+AW_SLIDE );
end;
//缩回去
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
AnimateWindow(Self.Handle, 1250, AW_VER_POSITIVE +AW_SLIDE or AW_HIDE );
end;
=========================================
看看下面的代码行不行:
========================
//伸出来
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.left:=Screen.Width-form1.width;
form1.top:=screen.height-form1.height;
AnimateWindow(Self.Handle, 1250, AW_VER_NEGATIVE+AW_SLIDE );
end;
//缩回去
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
AnimateWindow(Self.Handle, 1250, AW_VER_POSITIVE +AW_SLIDE or AW_HIDE );
end;
=========================================