这样的问题是不是难啊，我开了四五帖了都没能解决？？（再来一帖）

Question

单元文件：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ShockwaveFlash1: TShockwaveFlash;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  left := 0;
  top := 0;
  width := screen.Width;
  height := screen.height;
  ShockWaveFlash1.Movie := 'c:\test.swf';
  ShockWaveFlash1.Play;
end;end.×××××××××××××××××××××××××××
窗体文件：
object Form1: TForm1
  Left = 198
  Top = 107
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object ShockwaveFlash1: TShockwaveFlash
      Left = 1
      Top = 1
      Width = 686
      Height = 451
      Align = alClient
      TabOrder = 0
      ControlData = {
        67556655000300001B470000D22E000008000200000000000800020000000000
        080002000000000008000E000000570069006E0064006F00770000000B00FFFF
        0B00FFFF08000A0000004800690067006800000008000200000000000B00FFFF
        080002000000000008000E00000061006C007700610079007300000008001000
        0000530068006F00770041006C006C0000000B0000000B000000080002000000
        00000800020000000000}
    end
  end
end××××××××××××××××××××××××××××
这两个文件你研究不研究无所谓，就几行代码有用而已。
在自己设一下属性就是 了。

Answer 1

他没有象image的stretch功能
应该会有别的办法解决的。
大家在试试吧************
* 努力学习 *
*   全为   *
*￥人民币￥*
************

Answer 2

设置form属性不就可以了吗？！
设置最大化

Answer 3

或者都可不用控件来播放，直接调用falsh的可执行文件，而flash本身就是最大化的。

Answer 4

看我来吧  分都给我哦这里有个小技巧，就是用Button对Falsh控件发消息  至于为什么…… :(具体做法在Form上加一个最大化的Falsh控件，再加一个ButtonOK  解决procedure TFormFrontSelect.FormCreate(Sender: TObject);
begin
  //***********************图片加载*******************************************//
  MainFlash.Movie:=FormMain.ApplicationPath+'images\FormMain\main.swf';
end;procedure TFormFrontSelect.FormResize(Sender: TObject);
begin
  SendMessage(Button1.Handle,wm_keydown,vk_space,1);
  SendMessage(Button1.handle,wm_keyup,vk_space,1);
  MainFlash.Refresh;
end;procedure TFormFrontSelect.Button1Click(Sender: TObject);
begin
  sendmessage(MainFlash.handle,wm_lbuttondown,0,0);
  sendmessage(MainFlash.handle,wm_lbuttonup,0,0);
end;

Answer 5

这是我一个项目里的一点代码，对了你可要记得改Flash.Movie的文件路径哦按我的写可不行 hehe^^

Answer 6

你去www.delphibbs.com找找相关的内容