200分 网址智能链接技术.高手请讲.顶的有分(200分)

  • 主题发起人 主题发起人 ktsxy
  • 开始时间 开始时间
K

ktsxy

Unregistered / Unconfirmed
GUEST, unregistred user!
引用<<软件采用了先进的多地址卫星频道自动协调系统和智能链接技术,自动分析网络状态,软件自动配置最佳速度方案,为用户创造最佳收看环境。>>

小弟我想做一个网络电视.但由于地址太多.想实现上面那些功能.
哪位大哥可以帮我实现这些功能.<自动协调,智能链接> 这两个功能给200分.
 
我也一起等,看应该 怎么实现这样的功能。
 
问题: 如何使shockwaveflash的尺寸随着Form的尺寸变化而自动变化? ( 积分: 10 )
分类: 多媒体

来自: c_yihai, 时间: 2002-02-28 14:35:00, ID: 948949
[blue][/blue]各位:我在窗体中放置一个shockwaveflash,并把align设为alclient,可在
flash播放时,改变窗体的大小,其尺寸不会自动变化,为何???????

来自: drawpharos, 时间: 2002-02-28 14:38:00, ID: 948960
autosize设为true

来自: 远帆, 时间: 2002-02-28 14:38:00, ID: 948961
改变窗体大小后把shockwaveflash.SetFocus就可以了。

来自: c_yihai, 时间: 2002-02-28 14:54:00, ID: 949000
thanks,drawpharos 的方法不行,shockwaveflash没有autosize这属性。远帆的方法我不知道
如何去实现。我是通过窗体的bordericons(bimaximize/biminimize按钮)来改变大小。

来自: 远帆, 时间: 2002-02-28 15:06:00, ID: 949029
在FormResize事件中激活shockwaveflash(SetFocus)
昨天为了答一道相关的题刚试过。

来自: c_yihai, 时间: 2002-02-28 15:15:00, ID: 949061
远帆:我就是这样做的,可是不行。

来自: 远帆, 时间: 2002-02-28 15:21:00, ID: 949076
好,我试试。

来自: 远帆, 时间: 2002-02-28 15:36:00, ID: 949129
真的不行,我也不知道怎么办。

来自: c_yihai, 时间: 2002-03-01 8:54:00, ID: 950543
给为高手请出手帮兄弟一把,我真没辙了。急急!!!!!!!!!!

来自: 腾龙, 时间: 2002-03-01 9:27:00, ID: 950659
我知道,绝对正确!!!!!!!!(分数有点少哟)

用FORM的ONRESIZE中调整FLASH窗口的大小,然后将此对象隐藏,然后在显示。它就调整了。
以前我以为此困扰。
对了,你是编什么东西?要是做FLASH播放器,告诉我一声。我也有几个问题解决不了。

来自: c_yihai, 时间: 2002-03-01 10:25:00, ID: 950836
腾龙:你好!
谢谢你的回答,我正计划用delphi+web+flash 做一个多媒体课件。所以碰到这个问题。
flash播放器只是其中一个环节。如有什么问题可以交流。分数是少,我没有太多份。请原谅!

来自: 腾龙, 时间: 2002-03-01 10:36:00, ID: 950892
没关系。
要是做好了,将源代码给我一份如何?
hezhiqun@ynto.net

来自: c_yihai, 时间: 2002-03-01 11:26:00, ID: 950977
腾龙兄弟:你好!
再你的启发下,我用了以下代码:
if form1.active then

begin

flash1.hide;

flash1.show;

if flash1.canfocus then
flash1.setfocus
end;


可以实现自动变化.(flash1.align:=alclient)

来自: c_yihai, 时间: 2002-03-01 11:26:00, ID: 951063
多人接受答案了。

得分大富翁: 腾龙-7,远帆-3,
 
首先在窗体上放一个TPanel控件Panel1,把Panel1的Align属性设置为alClient,在Panel1里
放一个Tshockwaveflash控件shockwaveflash1,Align属性设置为alClient.
然后写以下代码:
procedure TForm1.Panel1Resize(Sender: TObject);
begin

try
Panel1.SetFocus;
shockwaveflash1.SetFocus;
except
exit;
end;

end;
 
后退
顶部