فلاش بلاير من برمجتي

[anasdrak]

شكرا جزيلا أخي الكريم تم الأمر بنجاح

[I_Tiger]

السلام عليكم
قمت ببعض التطويرات اتمنا ان تعجبكم
- سكين
- تصغير الى جوار الساعة
- حل جزئي لمشكلة التراك بار
المرفق بأول مشاركة
اتمنى ان اكون قد افدتكم ، سلام

[AL-MOB4RM3G]

نعم اخي تايجر,, ما شاء الله,, تحسينات مقبولة و جيدة وجميلة,,
بقي آمر وآحد فقت ,,, اتدري ما هو ؟
اعرضه في الأسوق,, وانا ادعو لك ان شاء الله :p
بارك الله فيك اخي الكريم

[I_Tiger]

شكرا لك اخي على النصائح و التشجيع
فنشاطك الكبير يثري المنتدى واصل و انوي الخير و ان شاء الله يجازيك الله خير

[zmx123]

كود :

private { Déclarations privées } procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; procedure PerformFileOpen(const AFileName: string); procedure TForm1.PerformFileOpen(const AFileName: string); begin flshplyr1.LoadMovie(0, AFileName); trckbr1.Max:=flshplyr1.TotalFrames; Form1.Caption:=AFileName; end; procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); var CFileName: array[0..MAX_PATH] of Char; begin try if DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > 0 then begin PerformFileOpen(CFileName); Msg.Result := 0; end; finally DragFinish(Msg.Drop); end; end;

[issamdnn]

ممكن برنامج الفلاش بلير وإصداره على جهازك..
فال ocx الخاص بالفلاش بلير الموجود على جهازي أصداره أقدم.
وفقك الله.

[I_Tiger]

Shockwave_Player_11_5_1_601

[DJAMELCOLLO]

ضع الكود في تايمر

كود :

ShockwaveFlash1.CurrentFrame:= ProgressBar1.Position;

وضع مجالها 1 واتركها انابلد ترو enabled:=true