请问resize该怎样使用？(50分)

R

rushing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #1

代码如下，但是好象有些问题.

procedure TForm1.FormResize(Sender: TObject);
begin

RealAudio1.Left :=0;
RealAudio1.Top:=0;
RealAudio1.Height :=Form1.Height
RealAudio1.Width :=Form1.Width
end;


end.


1 无法在Form1载入时触发resize事件，每次都要手动改变一次才能生效
2 大小与Form1不一样，有水平和垂直的滚动条
请诸位指教。

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #2

1.可在formshow中执行一下resize命令。
2.在form的HorzScrollBar与VertScrollBar属性中，把true都设为false。另外，代码最好
这样改改：
RealAudio1.Left :=1;
RealAudio1.Top:=1;
RealAudio1.Height :=Form1.Height-2
RealAudio1.Width :=Form1.Width-2
以免挤满窗体不好看。

 

Q

qiaoda_ly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #3

你将RealAudio1的Align属性设置成alClient，什么问题都解决了，还有把你的上面的代码也可以删除掉了。

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #4

同意qiaoda_ly

 

R

rushing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #5

procedure TForm1.FormShow(Sender: TObject);
begin

form1.Resizing(wsNormal );
end;


end.


这样好象不行，该怎么写呢？

 

R

rushing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #6

qiaoda_ly的办法不错
但是谁能告诉我怎么在show中用resize么？

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #7

直接这一句
resize;
其实刚才一时糊涂，除了qiaoda_ly的办法外，还可以先设好RealAudio1位置，再将
RealAudio1的anchors属性下的四个子属性都设为true也行。

 

R

rushing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #8

多人接受答案了。