ازالة قائمة الزر الايمن عند النقر على الفلاش

أخي الكريم

جواب سؤالك موجود في هذا الرابط :

إلغاء عمل الزر الأيمن في نافذة الفلاش

شكرا يا أخى

ولكن GetFlashCtrlHandle لم تستطيع ان تحصل على hwnd لأداة الفلاش وبالتالى لم يتحقق الهدف

إن الكود يعمل مع الادوات التى تمتلك خاصية hwnd ولكن الادوات التى لا تمتلكها كالفلاش لا نستطيع ان نستعمل هذا الكود معها

ارجوا الافادة

السلام عليكم

في دلفي الطريقة سهلة ...اما الفيجول لا اعلم .. ولكن ساعرض الطريقة ربما تساعدك

اخفاء القائمة المنبثقة (Popup Menu) من كائن الفلاش (Flash.OCX) :

1- ضع كائن Application Events على الفورم

2- في حدث OnMessage اكتب الكود التالي:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
  if Msg.message = WM_RBUTTONDOWN then Handled := True;
end;

في حال رغبتك بوضع قائمة منبثفة خاصة بك اكتب الكود التالي :

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_RBUTTONDOWN then begin
    popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
    Handled := True;
  end;
end;

أخي الكريم

يوجد خاصيه في الشوك ويف فلاش تعمل على شفافيه هذا الكنترول فقط إجعله شفافا ولن تظهر هذه القائمة :)

وشكرا