السلام عليكم :
اخواني كيف يتم طباعة محتويات كومبوبوكس من خلال Quick report او اي طريقة ثانية ..ولدي سؤال ثاني وآسف لو كان في موضوع ثاني هو ان الكومبوبوكس موجود في الفورم الرئيسي كيف لي ان اجعل الفورم الرئيسي يحدث اي معلومات تحدث في اي فورم اخر ..... ولكم الشـكر
وعليكم السلام ورحمة الله
مبدئيا انقل النص إلى TMemo ثم اطبعه زمن التشغيل
كود :
Memo1.Lines := ComboBox1.Items;
السلام عليكم :
اخي كاش واحد شكراً للاجابة على السؤال الاول .. اما السؤال الثاني فهو مثلاً عندي 2 فورم واحد رئيسي وهو ثابت والفورم الثاني هو قرعي هل يوجد حدث معين بواسطته تتم تحديث شيء معين في الفورم الرئيسي عند الخروج من الفورم الفرعية ... وشكراً
إقتباس :مثلاً عندي 2 فورم واحد رئيسي وهو ثابت والفورم الثاني هو قرعي هل يوجد حدث معين بواسطته تتم تحديث شيء معين في الفورم الرئيسي عند الخروج من الفورم الفرعية
لم أفهم شيئا!
لعلك تقصد شيء مثل ModalResult
أرفق محاولة توضح الذي تريد عمله.
السلام عليكم :
هذا مثال الفورم الرئيسي في الحدث onactivate اللون ازرق وعندما يفتح اي فورم فرعي يتحول الى احمر ... انا الهدف الذي ****ه انه عندما يظهر الفورم الرئيسي يتحول الى اللون الازرق الحدث onactivate لا يفي بالغرض ما هو الاجراء الذي يعطيني هذا التحكم ..**** ان يكون هذا واضحاً
مثال استخدام ModalResult
أو حدث WMNCActivate
شكراً اخي كاش واحد ولكن انا اود ان اعمم هذا الشيء لكل النماذج هل يمكن بواسطة case يعني هل يمكن الاستفادة من هذا الشيء بدون كتابة هذا الكود في كل النماذج ..شكراً لك
إقتباس :هل يمكن الاستفادة من هذا الشيء بدون كتابة هذا الكود في كل النماذج
أجل، مثال الحدث 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;
اخي الكريم :
لم افهم
إقتباس :activecolor: Array***91;boolean***93; of tcolor = (clred, clblue);
begin
color := activecolor***91;msg.active***93;;
***91 و النجمات .. شكراً لك