اخي فاتح اذا قمت بجعل النموذجين يظهران في نفس الوقت و كأن الأمر نفسة أبسط كراكر يستطيع أن يتجاوز النافدة و يصل للنافذة الأخرى بدون كتابة كلمة سر لذلك يجب عدم جعله يهر معه و بالإضافة اذا في الطريقة التي ذكرتها لا يوجد مشاكل و يتم حلها جميعا
و هذا بجعل النموذج الأول هو النموذج الرئيسي في وقت التشتغيل
الكود كما توضح الصورة حيث يصبح النموذج الثاني هو النموذج الرئيسي اذا ضغطنا على الزر و نستبدلها بجواب لشرط لكي نحصل على مرادنا
مشكور على التنبيه
و هذا بجعل النموذج الأول هو النموذج الرئيسي في وقت التشتغيل
الكود كما توضح الصورة حيث يصبح النموذج الثاني هو النموذج الرئيسي اذا ضغطنا على الزر و نستبدلها بجواب لشرط لكي نحصل على مرادنا
مشكور على التنبيه
كود :
http://store2.up-00.com/2015-01/1422543191452.pngكود :
procedure SetAsMainForm(aForm:TForm);
var
P:Pointer;
begin
Application.MainFormOnTaskBar := False;
try
P := @Application.Mainform;
Pointer(P^) := aForm;
aForm.Show;
finally
Application.MainFormOnTaskBar := True;
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
SetAsMainForm(Form1);
end;