هل تتم برمجة حركات الفلاش

بمكن إنشاء Movie به Frams ويكون فيها الصورة في مواضع مختلفة وبذلك تظهر كأنها تتحرك

ظننت أن الموضوع له علاقة بالفلاش ولم أنتبه أنه في دلفي أسففففففففف

هناك أكثر من طريقة

اولا : ان تكون نفس الصورة باوضاع مختلفة بواسطة المكونTimer من الصفحة System

وفي الحدث OnTime من هذا المكون تقوم بالتغيير بين الصور

ثانيا وهذه هي طريقة المحترفين هن طريق openGL و الDirectX

خذ هذا المثال ربما اوحي اليك بفكرة

var
  bm: TBitMap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bm := TBitMap.Create;
  bm.Width := Form1.ClientWidth;
  bm.Height := Form1.ClientHeight;
  with bm.Canvas do
  begin
    Font.name := 'Arial';
    Font.Size := 50;
    Font.Color := clBlue;
  end;
  Timer1.Interval := 100;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  s: string;
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(Time, Hour, Min, Sec, MSec);
  with bm.Canvas do
  begin
    Brush.Style := bsSolid;
    Brush.Color := clWhite;
    FillRect(ClipRect);
    s := TimeToStr(Time);
    TextOut((bm.Width - TextWidth(s)) div 2,
    (bm.Height - TextHeight(s)) div 2, s);
    Pen.Mode := pmMask;
    Pen.Width := 20;
    Pen.Color := clLime;
    Brush.Style := bsClear;
    Rectangle(bm.Width div 2 - (MSec * bm.Width) div 5000,
    bm.Height div 2 - (MSec * bm.Height) div 5000,
    bm.Width div 2 + (MSec * bm.Width) div 5000,
    bm.Height div 2 + (MSec * bm.Height) div 5000);
  end;
  Form1.Canvas.Draw(0, 0, bm);
end;

عموما كانت لي مشاركات سابقة ابحث في المنتدى عن

بعض البرامج في الجرافيكس

هذا الرابط

http://www.arabteam2000.com/forums/index.p...30entry344326

هناك عدد لاباس به من الامثلة

ولكن لا تستطيع تحميل الملفلت بسبب المشاكل الموجودة في المنتدى انتظر بعض الوقت

كما انه لا يمكن إرفاق الملفات

شكرا لك اخ romanof إن شاء الله ما ممننحرم من كرمك