| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Fido24 ©   (2004-11-30 23:01:00) 

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

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

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

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

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

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

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

/Фидо/.

---

Fido24   (2004-12-01 23:25:00) [1]

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

---

asvt   (2004-12-01 09:09:00) [2]

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.

---

Наверх