المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كيف نقوم بطباعة ال items الخاص بال combobox

amar_del2007
07-09-2010, 07:53 PM
السلام عليكم :
اخواني كيف يتم طباعة محتويات كومبوبوكس من خلال Quick report او اي طريقة ثانية ..ولدي سؤال ثاني وآسف لو كان في موضوع ثاني هو ان الكومبوبوكس موجود في الفورم الرئيسي كيف لي ان اجعل الفورم الرئيسي يحدث اي معلومات تحدث في اي فورم اخر ..... ولكم الشـكر
kachwahed
08-09-2010, 03:47 PM
وعليكم السلام ورحمة الله
مبدئيا انقل النص إلى TMemo ثم اطبعه زمن التشغيل
Memo1.Lines := ComboBox1.Items;
السؤال الثاني أرفق محاولة.
amar_del2007
08-09-2010, 03:53 PM
السلام عليكم :
اخي كاش واحد شكراً للاجابة على السؤال الاول .. اما السؤال الثاني فهو مثلاً عندي 2 فورم واحد رئيسي وهو ثابت والفورم الثاني هو قرعي هل يوجد حدث معين بواسطته تتم تحديث شيء معين في الفورم الرئيسي عند الخروج من الفورم الفرعية ... وشكراً
kachwahed
08-09-2010, 05:28 PM
مثلاً عندي 2 فورم واحد رئيسي وهو ثابت والفورم الثاني هو قرعي هل يوجد حدث معين بواسطته تتم تحديث شيء معين في الفورم الرئيسي عند الخروج من الفورم الفرعية
لم أفهم شيئا!
لعلك تقصد شيء مثل ModalResult
أرفق محاولة توضح الذي تريد عمله.
amar_del2007
08-09-2010, 10:09 PM
السلام عليكم :
هذا مثال الفورم الرئيسي في الحدث onactivate اللون ازرق وعندما يفتح اي فورم فرعي يتحول الى احمر ... انا الهدف الذي ****ه انه عندما يظهر الفورم الرئيسي يتحول الى اللون الازرق الحدث onactivate لا يفي بالغرض ما هو الاجراء الذي يعطيني هذا التحكم ..**** ان يكون هذا واضحاً
kachwahed
08-09-2010, 10:30 PM
مثال استخدام ModalResult
أو حدث WMNCActivate
amar_del2007
08-09-2010, 10:48 PM
شكراً اخي كاش واحد ولكن انا اود ان اعمم هذا الشيء لكل النماذج هل يمكن بواسطة case يعني هل يمكن الاستفادة من هذا الشيء بدون كتابة هذا الكود في كل النماذج ..شكراً لك
kachwahed
08-09-2010, 10:56 PM
هل يمكن الاستفادة من هذا الشيء بدون كتابة هذا الكود في كل النماذج
أجل، مثال الحدث 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;

بالتوفيق.
amar_del2007
08-09-2010, 11:02 PM
اخي الكريم :
لم افهم activecolor: Array***91;boolean***93; of tcolor = (clred, clblue);
begin
color := activecolor***91;msg.active***93;;


***91 و النجمات .. شكراً لك