关于消息捕获的问题(100)

S

shhw

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个窗体既要让它小到一定程度不能在小又要让它响应窗体的最大化、最小化和关闭按钮怎么办??
 
一定要用小虎捕获吗?procedure TForm1.FormCreate(Sender: TObject);begin Form1.Constraints.MinHeight := 200; Form1.Constraints.MinWidth := 200;end;当然你可以在Form的OnResize事件里面写代码来控制
 
你的方法我已经试过了设置完宽度后,在点击最小化按钮时窗体无法执行(下任务栏上方留下一个很长的窗体栏)。窗体很难看
 
是不是要这样的效果呢?procedure TForm1.FormResize(Sender: TObject);beginif form1.Height<100 then Form1.Height:=100;if form1.Width<100 then Form1.Width:=100;end;
 
newsmile 这样设置是可以的 关键是设置完后能最小化吗
 
你试一试不就知道了?当然能啊!
 
打扰楼主,借地方一用.[:)]为什么的邮箱收不到激活码 ?提问题都提不成了...请管理员看到处理一下 .. 
 
对了,你是不是要求最小化时不到任务栏而是到那个指定大小的窗口啊,如果是这样你要拦截最小化消息再处理一下
 
算了结束吧
 
顶部