Как отключить Popup-меню в компоненте?

← →
Fido24 © (2004-11-30 23:01) [0]

Такая трабла, поставил я себе FlashPlayer. Проинсталировал библиотеку В Delphi.
КомПИЛЮ исходник, Готово.. Но при правом клике по ActiveX вылазает меню "About Flash Player".
КАК устранить такое Чудо!...:)

Как убрать действие на реакцию нажатия правой мыши????????

with FlashPlayer1 do
SetWindowLong(Handle, GWL_WNDPROC, @MyProc// Замещается полностью процедура обратного вызова...

Или стиль менять надо....Или ловушку какую....Я тут ваще не шарю!!:)-

Помогите pls. решить эту задачку...!!

Если есть иные способы решения этой проблемы, пишите.

Заранеее-е-е-е благодарю!!

/Фидо/.

← →
asvt (2004-12-01 09:09) [1]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, ShockwaveFlashObjects_TLB;

type TShockwaveFlash = class(ShockwaveFlashObjects_TLB.TShockwaveFlash)
private
procedure WMRButton(var msg: TMessage);message WM_RBUTTONDOWN;
end;

type
TForm1 = class(TForm)
ShockwaveFlash1: TShockwaveFlash;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TShockwaveFlash }

procedure TShockwaveFlash.WMRButton(var msg: TMessage);
begin
{Ничего не надо писать}
end;

end.

Большое спасибо!!

Как отключить Popup-меню в компоненте? Найти похожие ветки