السلام عليكم
كود :
ShockwaveFlash1.Movie := ExtractFilePath(Paramstr(0)) + '1.swf';
if [COLOR=Red]... [/COLOR]then
ShockwaveFlash1.Play;
هذا ملف فلاش 1.SWF
كل مايلزمني
شرط خاص للبدأ العرض في مكون ShockwaveFlash
جربت شرط
كود :
if messagedlg('ghhjghjghj',mtinformatio,[])=mbok then
ولم تنجح في انتظار حل
والسلام عليكم
السلام عليكم
paix144
بارك الله فيك اخي
اطلعت على الموضوع وفيه افكار جميلة لكن ما ابحث عنه هو اقلاع الفلاش بعد ايجاده اليا
بمعنى لا أحبذ التعامل ب opendialog
TF6M
بارك الله فيك اخي
الشرط الذي ابحث عنه هو
عند التحقق من وجود الملف يشتغل تلقائيا
لان البرنامج سوف اصممه للاطفال الصغار لا يمكنهم البحث عن فلاش في الملفات
فكرة البرنامج مجموعة صور للفلاش في فورم و كل صورة بعنوان "تعليم الوضوء ’ تعليم الصلاة وووو" عند الضغط على الصورة تظهر فورم 2 فيها الفيديو الخاص بالفلاش
اتمنى تكون وصلت الفكرة
والسلام عليكم
السلام عليكم ز رحمة الله
استخدم FileExists راجع Help دلفي حولها
بالتوفيق
جربت كل الاحتمالات فلم تفلح
الطريقة الوحيدة هي بكتابة المسار المباشر
مثال:F:\1.swf
و من له حل فليدرجه في مشار كة
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ShockwaveFlash1.Stop;
ShockwaveFlash1.Rewind;
Label1.Caption := ExtractFilePath(Paramstr(0))+'1.swf';
ShockwaveFlash1.Movie := ExtractFilePath(Paramstr(0))+'1.swf';
if FileExists(ExtractFilePath(Paramstr(0))+'1.swf') then
ShockwaveFlash1.Visible:= true;
ShockwaveFlash1.Play;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShockwaveFlash1.Movie := ExtractFilePath(Paramstr(0))+'..\delphi test\1.swf';
ShockwaveFlash1.Play;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShockwaveFlash1.LoadMovie(0,':\1.swf');
ShockwaveFlash1.Play;
end;
والسلام عليكم
بارك الله فيك عبد العزيز
لم تنجح معي!!
جربت الحل المطروح لكنه لم يتعرف على مسار الفلاش
ولا توجد رسائل خطأ في التطبيق