كيف يمكن التفريق بين نافذتين

يا أخي abazied. إرفاق الكود كامل ليس ضروريا إذا لم تشرح ما هو المشكل الذي لقيته في برنامجك.

لقد قمت بتنفيذه ولم أجد شيئا فيه.

قم بوصف المشكل و اشرحه!!

حاول يا اخ ايكوسان ان تضغط زر انشاء الفورم form2 مرتين

ستجده في كله مرة يولد فورم جديد!!

المشكلة يا ا خي abazied ان المتغير form2 عبارة عن مؤشر على فورم من النوع

TFROM2

وبالتالي عند الضغط على نفس الزر مرتين سياخذ عنوان الفورم المنشا في المرة الثانية ويفقد عنوان الفورم الذي تم انشاؤه في المرة الالى وبالتالي انت لاان تسطيع التحكم في الفورم الذي انشأته اول مرة . لانه لايوجد ما يشير اليه

يعني المسالة مش مسالة تفريق!!! المسالة انه لايرى الاول من اساسه

واذا كنت لاتصدق جرب ان تضع على الفورم الاساسي زرا ثالثا واكثب داخله ض

procedure TForm1.Button3Click(Sender: TObject);
begin
if form2<>nil then
  Form2.Close;
end;

واضغط على زر انشاء الفورم رقم 2 مرتين

ثم لضغط على الزر المنشا موخرا ستلاحظ انه اغلق النافذة الاخيرة

حل المشكلة

عند الضغط على زر الانشاء قم بحفظ الفورم الجديد في متغير جديد

uses Unit2;
 var
  myforms:array[1..10]of TFORM2;

.  .  .

procedure TForm1.Button1Click(Sender: TObject);
begin
 i:=I+1;
Application.CreateForm(TForm2, myForms);
myForms.Caption:='Form2 - Copy : '+IntToStr(I);
myForms.Show;
end;

كمثال على التحكم في الفورم المرغوب

procedure TForm1.Button3Click(Sender: TObject);
begin
  if myForms<>nil then
	begin
	 myForms.Close;
	 i:=i-1;
	end;
end;

شكرا romanof

الآن كيف استطيع أن أعرف الفورم الذي قام باستدعاء الفورم الثالث من هذه المصفوفة