procedure TForm1 . Button1Click ( Sender : TObject );
begin
AnimateWindow ( Panel1 . Handle , 300 , AW_HIDE or AW_SLIDE or AW_HOR_POSITIVE );
end ;
procedure TForm1 . Button2Click ( Sender : TObject );
begin
AnimateWindow ( Panel1 . Handle , 300 , AW_ACTIVATE or AW_HOR_POSITIVE );
end ;