如何实现窗体缩放？

Question

是这样的：点击收缩安钮——窗体收缩成一条，就好像工具条；再点击展开安钮——窗体恢复原始大小！如何实现呀？？？
各位大虾，帮帮我！！

Answer 1

self.Height:=10;
    self.Width:=10    self.Height:=100;
    self.Width:=100;

Answer 2

点击butten_收缩
self.height:=butten_收缩.height
点击butten_还原
self.height:=form的原始高度
当然可以声明一个变量保存窗体的原始高度