+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف نقوم بطباعة ال items الخاص بال combobox (/showthread.php?tid=2392)
كيف نقوم بطباعة ال items الخاص بال combobox - amar_del2007 - 07-09-2010
السلام عليكم :
اخواني كيف يتم طباعة محتويات كومبوبوكس من خلال Quick report او اي طريقة ثانية ..ولدي سؤال ثاني وآسف لو كان في موضوع ثاني هو ان الكومبوبوكس موجود في الفورم الرئيسي كيف لي ان اجعل الفورم الرئيسي يحدث اي معلومات تحدث في اي فورم اخر ..... ولكم الشـكر
كيف نقوم بطباعة ال items الخاص بال combobox - kachwahed - 08-09-2010
وعليكم السلام ورحمة الله
مبدئيا انقل النص إلى TMemo ثم اطبعه زمن التشغيل
كود :
Memo1.Lines := ComboBox1.Items;كيف نقوم بطباعة ال items الخاص بال combobox - amar_del2007 - 08-09-2010
السلام عليكم :
اخي كاش واحد شكراً للاجابة على السؤال الاول .. اما السؤال الثاني فهو مثلاً عندي 2 فورم واحد رئيسي وهو ثابت والفورم الثاني هو قرعي هل يوجد حدث معين بواسطته تتم تحديث شيء معين في الفورم الرئيسي عند الخروج من الفورم الفرعية ... وشكراً
كيف نقوم بطباعة ال items الخاص بال combobox - kachwahed - 08-09-2010
إقتباس :مثلاً عندي 2 فورم واحد رئيسي وهو ثابت والفورم الثاني هو قرعي هل يوجد حدث معين بواسطته تتم تحديث شيء معين في الفورم الرئيسي عند الخروج من الفورم الفرعيةلم أفهم شيئا!
لعلك تقصد شيء مثل ModalResult
أرفق محاولة توضح الذي تريد عمله.
كيف نقوم بطباعة ال items الخاص بال combobox - amar_del2007 - 08-09-2010
السلام عليكم :
هذا مثال الفورم الرئيسي في الحدث onactivate اللون ازرق وعندما يفتح اي فورم فرعي يتحول الى احمر ... انا الهدف الذي ****ه انه عندما يظهر الفورم الرئيسي يتحول الى اللون الازرق الحدث onactivate لا يفي بالغرض ما هو الاجراء الذي يعطيني هذا التحكم ..**** ان يكون هذا واضحاً
كيف نقوم بطباعة ال items الخاص بال combobox - kachwahed - 08-09-2010
مثال استخدام ModalResult
أو حدث WMNCActivate
كيف نقوم بطباعة ال items الخاص بال combobox - amar_del2007 - 08-09-2010
شكراً اخي كاش واحد ولكن انا اود ان اعمم هذا الشيء لكل النماذج هل يمكن بواسطة case يعني هل يمكن الاستفادة من هذا الشيء بدون كتابة هذا الكود في كل النماذج ..شكراً لك
كيف نقوم بطباعة ال items الخاص بال combobox - kachwahed - 08-09-2010
إقتباس :هل يمكن الاستفادة من هذا الشيء بدون كتابة هذا الكود في كل النماذجأجل، مثال الحدث WM_NCACTIVATE
كود :
private
procedure WMNCActivate(var Msg: TWMNCActivate); message WM_NCACTIVATE;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.ShowModal
end;
procedure TForm1.WMNCActivate(var Msg: TWMNCActivate);
const
ActiveColor: array[Boolean] of TColor = (clRed, clBlue);
begin
Color := ActiveColor[Msg.Active];
inherited;
end;كيف نقوم بطباعة ال items الخاص بال combobox - amar_del2007 - 08-09-2010
اخي الكريم :
لم افهم
إقتباس :activecolor: Array***91;boolean***93; of tcolor = (clred, clblue);
begin
color := activecolor***91;msg.active***93;;
***91 و النجمات .. شكراً لك