دخول

**kachwahed** · 08-01-2009, 09:14 AM

وعليكم السلام ورحمة الله وبركاته

بداية فاتني تنبيه مهم، وهو أن المكون TBalloonHint الذي سنستخدم إن شاء الله لا يعمل إلا مع وجود Internet Explorer بإصدار 5.0 فما فوق.
وبخصوص الأيقونة من الرسورس للأخ الذي قال:
ما نجح معي الأمر .
عليك بتعويض 'MyIcon' بأيقونة من الرسورس بالكود التالي:

كود :
hIcon := LoadIcon(HInstance,MakeIntreSource(1));

طبعا بعد إضافة تعريف أيقونة الرسورس في الوحدة ({R MyIcon.res$})نفسها أو وحدة المشروع، وللاطلاع على كيفية استعمال الرسورس راجع موضوع الأخ DeltaAziz
http://www.delphi4arab.net/forum/showthr...t=Besm.wav
وموضوع الأخ merouane
http://www.delphi4arab.net/forum/showpos...ostcount=4

وفي المرفقات مثال عن ذلك (استعمال أيقونة من الرسورس).
ملاحظة:
يمكن استعمال إحدى أيقونات الويندوز (التنبيه والتحذير...) عوض الأيقونة hIcon، كالتالي:

كود :
hIcon := LoadIcon(0,  IDI_APPLICATION);
      hIcon := LoadIcon(0,  IDI_QUESTION);
     hIcon := LoadIcon(0,  IDI_EXCLAMATION);
      hIcon := LoadIcon(0,  IDI_ERROR);

اختر واحدة منها عوض الكود السابق.

أما بخصوص التحقق من رقم uID فقال:
ممكن توضيح و شرح أكثر؟

وسأشرح:
ذكرنا أنه يمكن استخدام عدة أيقونات في علبة شريط المهام، لكن المشكلة أنك إذا استعملت عدة أيقونات كيف يعرف برنامجك أنك نقرت على الأيقونة الأولى أو الثانية أو الثالثة أو ....
الحل نستخدم قيمة مختلف لرقم uID لكل أيقونة
مثلا لأيقونة الأولى:

كود :
[align=left]       MyTNA.uID := 0;[/align]

للأيقونة الثانية:

كود :
[align=left]      MyTNA.uID := 1;[/align]

ثم نكتب في بداية الإجراء:

كود :
[align=left]procedure TForm1.WMTaskMsg(var Msg: TMessage);[/align]

شرط التحقق التالي:

كود :
[align=left] if Msg.WParam = 0 then[/align]

إي إذا نقرنا على الأيقونة الأولى...
ثم نكتب أوامر يقوم بها البرنامج عند النقر على الأيقونة الأولى بالزر الأيس كما في الشرح.
وإذا أردنا أن نكتب إجراء في حدث النقر على الأيقونة الثانية هذه المرة فنكتب شرط التحقق من أن الأيقونة الثانية هي التي تلقت حدث النقر، كما يلي:

كود :
[align=left] if Msg.WParam = 1 then[/align]

أظن أن الفكرة اتضحت إن شاء الله Wink

.
أضفت شرط التحقق في الكود سورس أيضا.

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