开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
USWFList.pas
资源名称：DelphiSWFSDK2[1].4.rar　[点击查看]
上传用户：raido2005
上传日期：2022-06-22
资源大小：5044k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

USWFList.pas：源码内容
  1. unit USWFList;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ShockwaveList, OleCtrls, ShockwaveFlashObjects_TLB, ShockwaveEx,
  8.   Menus, StdCtrls, Buttons, ExtCtrls;
  10. type
  11.   TForm1 = class(TForm)
  12.     ShockwaveFlashList1: TShockwaveFlashList;
  13.     PopupMenu1: TPopupMenu;
  14.     N11: TMenuItem;
  15.     N21: TMenuItem;
  16.     N31: TMenuItem;
  17.     SpeedButton1: TSpeedButton;
  18.     SpeedButton2: TSpeedButton;
  19.     RadioGroup1: TRadioGroup;
  20.     procedure N11Click(Sender: TObject);
  21.     procedure SpeedButton1Click(Sender: TObject);
  22.     procedure SpeedButton2Click(Sender: TObject);
  23.     procedure RadioGroup1Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.     Can: boolean;
  27.     xx,yy: integer;
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   Form1: TForm1;
  35. implementation
  37. {$R *.dfm}
  39. procedure TForm1.N11Click(Sender: TObject);
  40. begin
  41. //  if RadioGroup1.ItemIndex > 0 then RadioGroup1.ItemIndex := 0;
  42.   ShockwaveFlashList1.ItemIndex:=TMenuItem(sender).Tag;
  43. end;
  45. procedure TForm1.SpeedButton1Click(Sender: TObject);
  46. begin
  47.  ShockwaveFlashList1.Play;
  48. end;
  50. procedure TForm1.SpeedButton2Click(Sender: TObject);
  51. begin
  52.  ShockwaveFlashList1.Stop;
  53. end;
  55. procedure TForm1.RadioGroup1Click(Sender: TObject);
  56. begin
  57.  ShockwaveFlashList1.MoviesLayout := TMoviesLayout(RadioGroup1.ItemIndex);
  58. end;
  60. end.