ShockWave Flash

[etedali]

میشه توضیح بدهید در دلفی 2007 از ShockWave Flash چطوری استفاده کنم من از قسمت
Component/import Component/Import ActiveX Control
shock wave را اضافه میکنم اما مانند دلفی 7 گزینه ایی اضافه نمی کند برای استفاده باید چکار کنم?

[shervin farzin]

سلام
من نميدونم كه چطوري ActiveX رو Add كردي ولي روش كلي در Delphi 2007 اين طوريه :

اول يه Package مي سازي (File - New Package)
بعد همون كارايي كه خودت گفتي رو انجام ميدي و ميگي كه Unit فايل رو اضافه كنه به اين
Package كه ساختي . بعد رو نام package راست كليك كن و Install رو بزن .
احتمالا بدون مشكل بايد در Tab ، ActiveX كامپوننتهاي Flash رو ببيني .
موفق باشي

[etedali]

uses ShockwaveFlashObjects_TLB;

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
var f: TShockwaveFlash;
begin
f := TShockwaveFlash.Create(Self);
f.Parent := Self;
f.LoadMovie(0, 'd:/tests/coolspot.swf');
f.Play;
end;

من این کد را پیدا کردم و فلش را نشون میده منتها در سمت چپ فرم باز میشه اگر بخوام جابجا کنم باید چکار کنم مثلا فلش را وسط فرم یا پایین نشون بده؟

[monaizadi]

شما ابتدا یک ShockwaveFlash1 از ActiveX رو روی فرم تان بذارید و سپس تکه کد زیر رو بنویسید:


procedure TForm1.Button1Click(Sender: TObject);
begin

ShockwaveFlash1.LoadMovie(0, 'C:/flash+delphi/5770.swf');
ShockwaveFlash1.Play;
end;

[vcldeveloper]

اگر بخوام جابجا کنم باید چکار کنم مثلا فلش را وسط فرم یا پایین نشون بده؟
باید خصوصیات Left و Top برای تعیین مکان کنترل داشته باشه. چون به اونها مقدار ندادید، کامپوننت در مختصات 0 و 0 نمایش داده شد.