窗体在放大后，按键如何成比例？？？(100分)

L

lonely_chet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #1

在一个Form中放置了一个Image及几个bitbtn。Form中的Align设置为alCustmon。当运行时
点击Form的放大按钮，bitbtn的位置不能成比例的改变，能不能解决这个问题啊？？？
或者干脆就使主窗体没有放大的哪个按键啊？？？

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #2

>>>>>点击Form的放大按钮，bitbtn的位置不能成比例的改变，能不能解决这个问题啊？？？
在如下事件中写代码，控制bitbtn的长度和高度（或按照比例系数缩放）
procedure TForm1.FormResize(Sender: TObject);
begin
BitBtn1.Height:=......;
BitBtn1.Width:=........;
end;

>>>>>或者干脆就使主窗体没有放大的哪个按键啊？？？
BorderIcons 中 biMaximize 设为false

 

D

desertsmoke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #3

有个第三方控件叫Resizer，效果很不错
而且使用简单，只需在窗体的OnResize事件中加一句
Resizer1.resize(form1);就一切OK了

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #4

//窗体不可调整大小可以设以下两个属性：
Form1.BorderStyle:=bsSingle;
Form1.BorderIcons:=[biSystemMenu,biMinimize];

 

L

lonely_chet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #5

为什么现在我的Form窗口运行后，不能被拖动了啊？？？ 很奇怪，不知道是哪个属性改错
了。
然后在Form中插了个Image，然后还有几个bitbtn，能不能把bitbtn设置成透明的啊？这样
才能和Image融为一体，不然就象是几块膏药一样啊，难看。

 

L

lilofox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #6

这个可能要继承TBITbtn控件了。是不是窗口死了，发生了死循环现象。

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #7

>>为什么现在我的Form窗口运行后，不能被拖动了啊？？？ 很奇怪，不知道是哪个属性改错
了。
你修改了BorderStyle了可能是bsSingle[]
>>点击Form的放大按钮，bitbtn的位置不能成比例的改变，能不能解决这个问题啊？？？
修改bitbtn的Anchors属性可以改变的，默认的是以控件的左上角为定点，你试着修改就可以看到效果了

 

L

lonely_chet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #8

那要如何改才能让窗口恢复移动啊？ 死循环的可能性很小几乎没有可能啊。

 

X

xf-wangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #9

嘿嘿，这个方法最简单，不过太笨[]
button的anchors中
akleft:=true;
aktop:=true;
akright:=true;
akbottom:=true

 

T

tangzwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #10

楼上说的是了。
设定Button的属性
anchors：
akleft:=true;
aktop:=true;
akright:=true;
akbottom:=true
使主窗体没有放大的哪个按键。
设定主Form的属性
BorderIcons
->biMaximize 为False 了。