فكرة لتخلص من رسائل عنصر التحكم

السلام عليكم

اصدقائي الأعزاء، لقد كان لدى احد اصدقائي عنصر تحكم رائع، ولكن للأسف فهو حريص على تذكيرنا برسالة لم أفهم منها حرفا واحدا. ولكن الحمد لله ذهب وجع الرأس بعد أن قرأت الدرس المتميز لأستاذ SUM بعنوان "تعلم كيف تتعامل مع البرامج الخارجيه (( مهم جداً ))".

مواصفات الرسالة

---------------: مثل رسالة ShowMessage ولك خيار واحد فقط لأغلاقها الا وهو الضغط على الزر.

** إذا يتضح أن الحل يكمن في جعل البرنامج يضغط على الزر في اي ظهور للرسالة.

مثال لضغط زر الرسالة

--------------------

افترض أن Class الخاصة بالرسالة TMyMessageClass، وعنوان الرسالة هو Remember، وأفترض أيضا أن Class الخاصة بالزر هي TMyButtonClass.

var

FatherHWnd : longInt;

ChildHWnd : longInt;

begin

FatherHWnd := FindWindow('TMyMessageClass','Remember');

if FatherHWnd <> 0 then

ChildHWnd := FindWindowEx(FatherHWnd,0,'TMyButtonClass',nil);

if ChildHWnd <> 0 then

SendMessage(ChildHWnd,BM_CLICK,0,0);

end;

--------------------------------------------------------

لدي سؤال و هو إذا أفترضنا جدلا أن الرسالة لديها زرين من نفس class، ولديهما نفس القيمة للخاصية caption، فكيف يمكن الحصول على handle لأحدهما دون الآخر؟

الأستاذ SUM، لقد كان موضوعك مفيد للغاية، وهناك اشياء كثيرة نجهلها، نعرف أننا نتعبك ولكننا نريد ان نتعلم.

اخوكم مازن:)