Вниз
Скачать: CL | DM;

Грамотно перекрыть flash`ке сообщения   Найти похожие ветки 

 
Ling ©   (2006-02-09 15:27) [0]

Пожалуйста помоите с проблеммой. Её можно решить на ActionScript, но не получается, поэтому придётся черех дельфу.
Вопрс:
Как сдеать так, что-бы TShockWaveFlash не знал, что мышка по нему движется с нажатой левой кнопкой, и что она вообще нажата?

я думаю, что это надо делать с помощью хуков, но не получается. С помощью хуков я нормально убрал флешевское меню, а этот трюк не получается

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
 szClassName: array[0..255] of Char;
const
 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;
            // моё меню
           end
         else
           Result := CallNextHookEx(HookID, nCode, wParam, lParam);
       end
   else
     Result := CallNextHookEx(HookID, nCode, wParam, lParam);
   end;
 end;
end;


Сразу скажу, зачем мне это нужно:
Во флешке множество (несколько тысяч) обьектов, которые по событию RollOver передают в дельфу инфу.
Нужно, что-бы она передавалась и в том случае, если над обьектом провели мышью с нажатой левой кнопкой. Вам будет смешно, но мы два дня возились с ActionScript, но не смогли это реализовать, или реализовали, но слишком медленно работает. Если кто-нибудь знает, как Это сделать на скрипте, то буду рад помощи.
Время идёт, проект стоит, начальство хмурится... помогите плиз.


 
Ling ©   (2006-02-09 15:37) [1]

up


 
Ling ©   (2006-02-09 16:23) [2]

up


 
Ling ©   (2006-02-09 17:31) [3]

Уважаемые мастера!
Ну неужели никто не знает, как перекрыть компоненту собщения от мыши, что-бы он не знал о нажатии на её кнопки, а всегда думал, что они в отжатом состоянии???


 
Ling ©   (2006-02-09 18:42) [4]

up



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

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



Память: 0.46 MB
Время: 0.024 c
2-1140698392
macpm
2006-02-23 15:39
2006.03.12
Печать содержимого PaintBox


15-1140418427
Бугага
2006-02-20 09:53
2006.03.12
Нет ли у кого этих двух книг в электронном варианте?


2-1140782253
HellSing
2006-02-24 14:57
2006.03.12
Массив из Label ов


1-1139340371
Gear
2006-02-07 22:26
2006.03.12
True Type для своего приложения


15-1140051172
Ученик чародея
2006-02-16 03:52
2006.03.12
Какая тема научной работы была у Вирта?




   Наверх