delphi4arab منتديات دلفي للعرب

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

كود :
Form2.Show            
Form1.Hide

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

كود :
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;

بالتوفيق أخي

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

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

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; 

مع تحياتي

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

كود :
SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);

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

Dz_MicroSoft

paix144

aymen1968

Dz_MicroSoft

aymen1968

paix144

Dz_MicroSoft