دخول

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 و النجمات .. شكراً لك

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة