Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TShockwaveFlash + контекстное меню [D6, D7, WinXP]

Ling © (2005-07-25 17:35:00)
В общем вопрос очень прост (надеюсь, как и ответ):
Как у компонента TShockwaveFlash заменить стандартное выпадающее меню на свой TPopupMenu?
Уверен, что это возможно... помню, что на позапрошлой работе проделал это с TWebBrowser, но той инфы нет, не помню, где искал, и нет много времени, что-бы копаться, срочно нужно заканчивать прогу (до августа).

ProGamer (2005-08-06 22:06:00) [1]
а как сделать чтобы его вообще убрать,если его в инспекторе объектов чекбокс снять-то будет сокр версия(флэшАХ)

MaximK (2005-08-04 20:19:00) [2]
А и ещё чуть не забыл, а то не получиться:

procedure TForm1.FormCreate(Sender: TObject);
begin
HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if HookID <> 0 then
UnHookWindowsHookEx(HookID);
end;

MaximK (2005-08-04 20:14:00) [3]
все также просто!

var
Form1: TForm1;
HookID: THandle;

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
szClassName: array[0..255] of Char;
const
// ie_name = 'Internet Explorer_Server'; - это если надо в IE
ie_name = 'MacromediaFlashPlayerActiveX';
begin
case nCode < 0 of
True:
Result := CallNextHookEx(HookID, nCode, wParam, lParam)
else
case wParam of
WM_RBUTTONDOWN,
WM_RBUTTONUP:
begin
GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
begin
Result := HC_SKIP;
Form1.PopupMenu1.Popup(Mouse.CursorPos.x, Mouse.CursorPos.y);
end
else
Result := CallNextHookEx(HookID, nCode, wParam, lParam);
end
else
Result := CallNextHookEx(HookID, nCode, wParam, lParam);
end;
end;
end;

Надёюсь все будет понятно...

Наверх

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