Скачать: CL | DM;

Как отключить 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.

---

← →
Fido24 ©   (2004-12-01 23:25) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c