كيف نعرف ان المكونات متقاطعة

أنت تتكلم عن تقنية Collision Detiction المستخدمة في الألعاب

بإمكانك البحث عنها لتجد مقالات رائعة ولكن ربما بعيدة قليلا عن ما تريده

السلام عليكم ورخمة الله وبركاته

اخي يمكنك استخدام هذه الدالة ربما ينفعك

function Detect(com1,com2 : TButton):boolean;
var	Bol : boolean;
begin
//------------------
  bol := false;
//------------------
//---------- Begin Verefecation ------------------------------------------------

if ( (com1.left >= com2.left) and (com1.left <= (com2.width+com2.left)) and
	(com1.top >= com2.top) and (com1.top <= (com2.Height+com2.top)) )  then
begin
 bol := true;
end;

if ( (com2.left >= com1.left) and (com2.left <= (com1.width+com1.left)) and
	(com2.top >= com1.top) and (com2.top <= (com1.Height+com1.top)) )  then
begin
 bol := true;
end;

//---------- End Verefecation --------------------------------------------------

//------------ Resultat ----------------

Detect := bol;

//--------------------------------------
end;

تخياتي