delphi4arab منتديات دلفي للعرب - ممكن أحد يعدلى على مشروعى ...؟

انا عملت مشروع بدائى ولكن فية مشكلة بسطية وهى بالرغم من وقع حدث
Image1.Top=Image2.Top
الا ان لا تظهر النتيجة
اليكم المشروع فى المرفقات

السبب أن التايمر مازال يعمل .. الاحداثيات ستتغير
تحتاج الى تعطيل التايمر .

PHP كود :
procedure TForm1.Timer3Timer(Sender: TObject);
var
  GameOver: Boolean;
begin
  GameOver := False;
  if (Image1.Left = Image2.Left) or (Image1.Top = Image2.Top) then
    GameOver := True
  else
    GameOver := False;
  if (Image1.Top = Image3.Top) or (Image1.Left = Image3.Left) then
    GameOver := True
  else
    GameOver := False;
  if GameOver then
  begin
    Label5.Caption := 'game over';
    Timer3.Enabled := False;
  end
  else
    Label5.Caption := 'سليم';
end; 

السلام عليكم اخي الكريم SMP3
في الكود الذي وضعته لا يتم ايقاف اي شيئ و ذلك لان الاخ karika2 لم يضع
تعليمات حركه الصور على تايمر واحد لذا ستبقى الصور في حاله حركه دائمه
اتمنى تكون قد جربته
لهذا قمت بتعديل المشروع و جمعت تعليمات الحركه في تامر واحد
لا حاجه الى الكلام يمكنك رؤيه التعديل على المشروع بالمرفقات

noor.aldeen.sha كتب :السلام عليكم اخي الكريم SMP3
في الكود الذي وضعته لا يتم ايقاف اي شيئ و ذلك لان الاخ karika2 لم يضع
تعليمات حركه الصور على تايمر واحد لذا ستبقى الصور في حاله حركه دائمه
اتمنى تكون قد جربته
لهذا قمت بتعديل المشروع و جمعت تعليمات الحركه في تامر واحد
لا حاجه الى الكلام يمكنك رؤيه التعديل على المشروع بالمرفقات

السائل يريد أن تتوقف النتيجة على Game Over .

إقتباس :الا ان لا تظهر النتيجة

لم يوضح أن كان يريد ايقاف الصور أم لا .

اسف جدا ...
ضننت ان النتيجه التي يريدها هي ايقاف الصور عند التصدادم و كتابه game over

noor.aldeen.sha كتب :اسف جدا ...
ضننت ان النتيجه التي يريدها هي ايقاف الصور عند التصدادم و كتابه game over

لما تتأسف ..؟ حصل خير .. :d

شكراّ أخوانى أستفد من مشاركتكم ...