+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التتعامل مع أكثر من form فورم (/showthread.php?tid=3321)
التتعامل مع أكثر من form فورم - Dz_MicroSoft - 28-07-2011
السلام عليكم و رحمة الله
قمت بعمل مشروع و لما إحتجت لفورم جديد قمت بإضافته للمشروعي
المشكل هي لما يضهر الفورم الجديد يختفي البرنامج من الشريط السفلي barre des tache
الكود اللذي إستعملت لإضهار الفورم هو
كود :
Form2.Show
Form1.Hideالتتعامل مع أكثر من form فورم - paix144 - 28-07-2011
و عليكم السلام ورحمة الله
كود :
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;التتعامل مع أكثر من form فورم - aymen1968 - 29-07-2011
وعليكم السلام :
يا أخي عند استدعائك فورم من الـ main form فلا تجعله يخفي الفورم الرئيسي أي يكفي أن تكتب
form2.showmodal;
وعند إغلاقه
form2.close;
تحياتي
التتعامل مع أكثر من form فورم - Dz_MicroSoft - 29-07-2011
أخي paix144 .. جربت الطريقة و قد نجحة معي .. بارك الله فيك
لكني لم أفهم تلك الأكواد !!
aymen1968
--------------------
أخي أعرف هذه الطريقة لكني أريــد جعل رسالة ترحيبية في بداية البرنامج .. لذا يجب أن يختفي الفورم المسؤول عن هذه الرسالة و يضهر بعدها الفورم الرئيسي ..
التتعامل مع أكثر من form فورم - aymen1968 - 29-07-2011
السلام عليكم ورحمة الله وبركاته وبعد
الكود التالي يبين لك كيف يمكنك أن تستدعي فورم عند بداية عمل البرنامج
أولا من قائمة 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;
مع تحياتي
التتعامل مع أكثر من form فورم - paix144 - 29-07-2011
السلام عليكم
يمكنك استعمال هذه الدالة في الحدث OnCreate
كود :
SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);التتعامل مع أكثر من form فورم - Dz_MicroSoft - 29-07-2011
بارك الله فيكم جميعاً تم حل المشكل ..