كيفية إصلاح خطأ تعامل Dbgrid مع عجلة الماوس

MaZeN · مشاركة رقم : 1 (permalink) 29-08-2007, 11:41 AM

يعتبر التحكم في القوائم الطويلة (قوائم مع scroolbar) بواسطة عجلة الماوس MouseWheel مهما جدا، ومن ضمنها طبعا DBGrid، ولكن للأسف فـ DBGrid لاتدعمه بشكل كامل،

[عزيزي الزائر يتوجب عليك التسجيل للمشاهدة الرابطللتسجيل اضغط هنا]

سنتابع في هذا الشرح كيفية إصلاح المشكلة
لكي تصبح الـ DBGrid تدعم الـ MouseWheel بشكل جيد نقوم باستبدال WindowProc الخاص بـ DBGrid بإجراء آخر من أجل معالجة الرسالة WM_MOUSEWHEEL
طبعا أول شيء أضف DBGrid و DateSource و...و...
ثانيا قم بإضافة التصريحين التاليين

كودtype
TForm1 = class(TForm)
DBGrid1 : TDBGrid

private
OldWindowProc: TWndMethod; // هذا
Procedure DBGridNewWindowProc(var Msg: TMessage);// و هذا

End;

ثم قم بإضافة الكود التالي إلى الحدث OnCreate للفورم
كودprocedure TForm1.FormCreate(Sender: TObject);
begin
// حفظ إجراء WndProc الحالي لـ DBGrid1.
OldWindowProc := DBGrid1.WindowProc;
// إسناد الإجراء الجدبد.
DBGrid1.WindowProc := DBGridNewWindowProc;
end;

ثم نقوم بتعريف الإجراء الجديد الذي يقوم بتنفيذ الأمر Next للتقدم في الجدول عند دوران العجلة في اتجاه
والأمر Prior عند دورانها في الاتجاه الآخر

كودprocedure TForm1.DBGridNewWindowProc(var Msg: TMessage);
begin
// تمييز الرسالة WM_MOUSEWHEEL.
if Msg.Msg = WM_MOUSEWHEEL then
begin
if (DBGrid1.DataSource.DataSet.Active) then
begin
if SmallInt(Msg.WParamHi) < 0 then
DBGrid1.DataSource.DataSet.Next // إلى الأسفل
else
DBGrid1.DataSource.DataSet.Prior;// إلى الأعلى
end;
Exit;
end;
//معالجة الرسائل الأخرى بالإجراء القديم وهذا ضروري
OldWindowProc(Msg);
end;

H_CAGE · مشاركة رقم : 2 (permalink) 09-10-2007, 08:55 PM

شـكــ وبارك الله فيك ـــرا ... تسلم ايديك على الدرس المميز , مازن ... تحياتي

smok200 · مشاركة رقم : 3 (permalink) 16-02-2008, 04:40 PM

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

مشكرو مازن طريقة رائعة لاصلاح الاخطاء

smok200 · مشاركة رقم : 4 (permalink) 16-02-2008, 04:44 PM

الله يعطييك الف عافية على الشرح وطريقة مهمة
لتشغيل عجلة الماوس

تسلم ايدك على حل هالمشكلة

أدوات الموضوع
مشاهدة صفحة طباعة الموضوع أرسل هذا الموضوع إلى صديق
طرق مشاهدة الموضوع
العرض العادي الانتقال إلى العرض المتطور الانتقال إلى العرض الشجري

الإعلانات النصية في شبكة لايف نت المتكاملة :
http://vb.lifenet-sy.com	www.lifenet-sy.net	www.lifenet-sy.org	لايف نت	www.lifenetextra.com	لايف نت جروب
أعلن هنا	أعلن هنا	كلمات دليلية	أعلن هنا	منتديات العمدة	أعلن هنا
أعلن هنا	أعلن هنا	أعلن هنا	كمبيوتر	أعلن هنا	أعلن هنا