delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

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

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

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

شكرا لك اخي على النصائح و التشجيع Rolleyes

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

كود :
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;

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

Shockwave_Player_11_5_1_601

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

كود :
ShockwaveFlash1.CurrentFrame:= ProgressBar1.Position;

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

الصفحات : 1 2

anasdrak

I_Tiger

AL-MOB4RM3G

I_Tiger

zmx123

issamdnn

I_Tiger

DJAMELCOLLO