在form1中加一个TButton,在CLICK事件中:
begin
form2.windowstate:=wsNormal;
end;
begin
form2.windowstate:=wsNormal;
end;
解决方案 »
- Clientdataset数据保存到数据库问题
- 焦头烂额一个上午还是搞不定,跪地相求大家,朋友帮忙啊。。。
- 有没有AT命令实现短信群发啊
- Ttable 控件的几种状态值怎么判断————在线等待!!!!
- 如何按下shift/ctrl 键在checklistbox实现多选?thanks a lot!!!
- 动态创建的memo,怎样释放它,在窗体上消失
- 怎样将string格式转换从TFontStyle格式?答对就给分!
- vfp报表如何自定义纸张大小,在线急等!
- 请问如何判断一个文件在NMFTP控件是已经下载完,rm控件中播放完成?
- XE7下,IdHTTPServer的CommandGet取POST中文乱码问题,但是同样D7不会,怎么解决?
- Delphi4开发大全的源码(23分)
- 怎样在98下实现windows关机消息的hook???
sendmessage(form2.handle,WM_SYSCOMMAND,SC_RESTORE,0);
具体可以加在FORM1的ONCLIK或者ONACTIVE等等
在form1中加一个TButton,在CLICK事件中:
begin
form2.windowstate:=wsNormal;
end;
form2就最大化了,这是怎么回事?
sendmessage(form2.handle,WM_SYSCOMMAND,SC_RESTORE,0);
具体可以加在FORM1的ONCLIK或者ONACTIVE等等
在还原之后出现错误提示:privileged instraction.
可以呀.
thedream(梦幻使者)的方法 也不错
你的的delphi坏了吧.
说明:
windowstate=2 '表示最大化
windowstate=1 '表示最小化
windowstate=0 '表示还原
代码:加如2个按钮,名字缺省!Private Sub Command1_Click()
form1.windowstate=1
end sub
'------------------------
Private sub command2_click()
if form1.windowstate=0 then
form1.windowstate=2
command2.caption="还原"
elseif form1.windowstate=2 then
form1.windowstate=0
command2.caption="最大化"
end if
end sub
或者:
begin
form2.show;
form2.width:=screen.width/2;
form2.height:=form2.height/2;
end;