怎样让自己的程序窗口大小固定(50分)

O

owner001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #1

我想让自己的软件被运行之后，用户不可以拉伸界面窗口的大小，有没有什么办法，请高手帮忙

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #2

最简单的方法：将Form的BorderStyle设置为bsToolWindow或者bsDialog既可

 

O

owner001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #3

改了之后，窗口的大小的确是被固定了，不过问题又来了：程序左上角的ico图标不见了，郁闷，不知有没有什么可以解决的方法？

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #4

既然要求多就用API可以搞定，拦截Form的Resize消息

 

O

owner001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #5

我是一个小菜鸟，前辈能不能说得详细一些？我不知道怎样用API去拦截Form的Resize消息，呵呵，再麻烦您一下

 

小

小虫无限

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #6

你也可以在form的rasize事件里加上代码，当触发这个事件时说明窗体大小被改变了，你就在此事件中将窗体高和宽改为原来的大小就可以了。

 

T

themars

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #7

这个问题好象把From的 BorderIcons 的biMinimize False 以及 biMaximize False就可以了吧

 

X

xiammy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #8

对窗体的属性：<br>BordStyle := bsSingle;<br><br>//////////////////////////////////<br>BorderIcons 的biMinimize False 以及 biMaximize False就可以了吧

 

R

risingsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #9

我用的是笨方法：<br> &nbsp;TfrmGammaAdjust = class(TForm)<br> &nbsp;protected<br> &nbsp; &nbsp;procedure Resize;override;<br><br>procedure TfrmGammaAdjust.Resize;<br>begin<br> &nbsp;inherited;<br> &nbsp;if Width &lt; cs_minFormWidth then<br> &nbsp; &nbsp;Width := cs_minFormWidth;<br>end;

 

J

jimzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #10

最简单的方法：把BorderStyle设成bsSingle.

 

O

owner001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-25

• #11

xiammy的方法很好