一个panel1的初始height是0,当我按一下button1时,panel1的height变为100,再按一下button1时,panel1的height又变为0.这语句怎么写?谢谢!
解决方案 »
- 有关存取access中ole对象的问题
- 有一段VC++的代码,想改成delphi的,比较简单的,可是改了一点不会了,哪位能帮帮兄弟呀。
- 如何获取鼠标在程序界面的坐标~~~~~~~~~~大哥们救命啊
- 如何设置另一个进程中的SysListView的items的text
- 救救我吧!DBGRID问题!
- 怎样制作向导(wizzard)?
- 怎样用Install Shield5封装带有BDE和数据库的程序
- 請問點擊treeview控件的任何一行內容都觸發什麼事件???
- 数据库文件问题
- 怎样在delphi编程中列出所有函数成员,以供调用?
- 为什么设置Form最大化时(Form.windowState:=wxMaxMized),有时可见任务栏有时又全屏连任务栏也见不着,我希望任务栏出现。可以吗?
- 嵌入的WORD文档修改后如何保存?
Panel1.visible := not Panel1.visible;
可以这样实现
Panel1.Height := (Panel1.Height + 300) mod 200;
要求你的Panel的初始高度为0或者100
就是这个,语句怎么写?谢谢
procedure Button1Click(sender: Tobject);
begin
Panel1.visible := not Panel1.visible;
end;