如何实现窗体缩放?

shgye121212 2003-07-15 05:02:01
是这样的:点击收缩安钮——窗体收缩成一条,就好像工具条;再点击展开安钮——窗体恢复原始大小!如何实现呀???
各位大虾,帮帮我!!
...全文
42 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
autumnlj 2003-07-17
  • 打赏
  • 举报
回复
学习。
LeiWong 2003-07-17
  • 打赏
  • 举报
回复

点击butten_收缩
self.height:=butten_收缩.height
点击butten_还原
self.height:=form的原始高度
当然可以声明一个变量保存窗体的原始高度
liangzisiyun 2003-07-16
  • 打赏
  • 举报
回复
是啊,又来晚了。
gytyl 2003-07-16
  • 打赏
  • 举报
回复
上面的方法就可以了,^_^。
  • 打赏
  • 举报
回复
self.Height:=10;
self.Width:=10

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

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧