التتعامل مع أكثر من form فورم

[Dz_MicroSoft]

السلام عليكم و رحمة الله
قمت بعمل مشروع و لما إحتجت لفورم جديد قمت بإضافته للمشروعي
المشكل هي لما يضهر الفورم الجديد يختفي البرنامج من الشريط السفلي barre des tache
الكود اللذي إستعملت لإضهار الفورم هو

كود :

Form2.Show Form1.Hide

[paix144]

و عليكم السلام ورحمة الله

كود :

private procedure CreateParams(var params: TCreateParams); override;

كود :

procedure TForm2.CreateParams(var params: TCreateParams); begin inherited CreateParams(params); params.ExStyle := params.ExStyle or WS_EX_APPWINDOW; end;

كود :

procedure TForm2.FormCreate(Sender: TObject); var params: TCreateParams; begin Self.CreateParams(params); end;

بالتوفيق أخي

[aymen1968]

وعليكم السلام :
يا أخي عند استدعائك فورم من الـ main form فلا تجعله يخفي الفورم الرئيسي أي يكفي أن تكتب
form2.showmodal;
وعند إغلاقه
form2.close;
تحياتي

[Dz_MicroSoft]

أخي paix144 .. جربت الطريقة و قد نجحة معي .. بارك الله فيك
لكني لم أفهم تلك الأكواد !!

aymen1968
--------------------
أخي أعرف هذه الطريقة لكني أريــد جعل رسالة ترحيبية في بداية البرنامج .. لذا يجب أن يختفي الفورم المسؤول عن هذه الرسالة و يضهر بعدها الفورم الرئيسي ..

[aymen1968]

السلام عليكم ورحمة الله وبركاته وبعد
الكود التالي يبين لك كيف يمكنك أن تستدعي فورم عند بداية عمل البرنامج

أولا من قائمة project تختار الأمر View Source
عندها تكتب كما في الكود التالي :

PHP كود :

begin

  IntroFrm := TIntroFrm.Create(Application);
  IntroFrm.Show;
  IntroFrm.Update;
  Application.Initialize;
  Application.Title :='My Program';
  Application.CreateForm(TMainFrm, MainFrm);
.
    هنا يتم استدعاء باقي الشاشات .
.

........ 

  IntroFrm.Hide;
  IntroFrm.Free;
  Application.Run; 


مع تحياتي

[paix144]

السلام عليكم
يمكنك استعمال هذه الدالة في الحدث OnCreate

كود :

SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);

[Dz_MicroSoft]

بارك الله فيكم جميعاً تم حل المشكل ..