بخصوص WebBrowser

السلام عليكم

انا اعرف هذة الطريقة :

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;

وللمعلومية تنفع حتى مع كائن الفلاش

تحياااااااااااتي لك

شكرا لك أخوي على الرد

أشكرك جدا