Flash и Delphi

[Donor]

У меня все получилось. Там все намного прощее:
Во Flash

on (release) {
fscommand("Click", ocenca);
}

В Delphi

procedure TMain.ShockwaveFlash1FSCommand(ASender: TObject; const command,
  args: WideString);
var a:WideString;
begin
if command  =  'Click' then
      begin
     a:=args;
     Edit1.text:=a;
     end
end;

Вот и все! Всем спасибо за советы.

[etc]

Сообщение от techno

не надо мне руки отрывать, а то аватар сгрызу

Скорее я добавлю Banned над твоим.
Ладно, разобрались и славно.

[Arreke]

На форме имеется компонент ShockwaveFlash1:
[IMG]http://i040.***********/0802/f1/4e00ae53a282.gif[/IMG]

Не получается сделать перемещение форму по экрану за оранжевую область в ShockwaveFlash1.

Есть такой код:

private
procedure WMLButtonDown(var Msg: TMessage); message WM_LBUTTONDOWN;

procedure TForm1.WMLButtonDown(var Msg: TMessage);
begin
Perform(WM_NCLBUTTONDOWN, HTCAPTION, Msg.LParam);
end;

Он работает для перемещения формы за любую её область. А мне нужно таскать форму за любой компонент, не только за область формы.
В Гугле дырку проделал, ничё не нашёл, помогите please кто в курсе.

[Arreke]

Кто нибудь знает, на Delphi можно в компоненте ShockwaveFlash убрать вызов меню, которое выходит при нажатии правой кнопки, типа аналог getURL("FSCommand:showmenu", false) на флеш.

[alexcon314]

на Delphi не программил, но идея, думаю, должна сработать.
нужно перехватывать события мыши в оболочке. либо хуком, либо оконную процедуру указанного компонента подменять на свою. или вставить компонент в специальный контейнер и ловить мышь в нем. или готовый ехе пощупать резхакером или чем-то подобным. и не забывайте про кнопку "Меню" на клаве, по ней тоже меню вываливается.
как-то так.
сам интересуюсь этим вопросом. отпишитесь, если не трудно по результатам.

[Arreke]

Вот перехват правой кнопки мыши, на форму кидаеш компонент ApplicationEvents, который на вкладе Additional:

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   ShockwaveFlash1: TShockwaveFlash;
   ApplicationEvents1: TApplicationEvents;
   procedure ApplicationEvents1Message(var Msg: tagMSG;
     var Handled: Boolean);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
FlashPlayerClass: array[0..MAX_PATH-1] of Char;
begin
Case Msg.message OF
 WM_RBUTTONDOWN:
              begin
                GetClassName(Msg.hwnd,FlashPlayerClass,MAX_PATH);
                if  (FlashPlayerClass = 'MacromediaFlashPlayerActiveX') then
                Handled:= True;
              end;
end;
end;

end.

А вот как сюда добавить кнопку меню на клавиатуре?
Видишь WM_RBUTTONDOWN, нужно типа такого же для этой кнопки.

[alexcon314]

LRESULT CALLBACK GetMsgProc(HWND hWnd,UINT nMsg,WPARAM wParam,LPARAM lParam){
	
switch (nMsg) 
{
case WM_KEYDOWN:
switch (wParam)
    {
       case 93:
      // handler
       return 1;
       break;
     }
....

на С++ я так делал.
VK_MENU = 93 вроде.

[Arreke]

Разобрался, internet+google forever.
Вообщем на форму кидаем компонент ApplicationEvents.

И пишем такой код:

const
FlashPlayerClassName: String = 'MacromediaFlashPlayerActiveX';
WM_WINMENUKEY = $100;
implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
TempClass: array [0..49] of Char;
begin
With Msg Do Begin
 Case message Of
    WM_RBUTTONDOWN:
    Begin
      GetClassName(hwnd,TempClass,50);
      if  (StrPas(TempClass) = FlashPlayerClassName) then Handled:= True;
    End;  // WM_RBUTTONDOWN
   WM_WINMENUKEY: Handled:= True;
 End; // Case
End; //With

end;

[Arreke]

в предыдущем примере кнопка меню в приложении вообще не будет работать, теперь только на нашей флешке:

const
FlashPlayerClassName: String = 'MacromediaFlashPlayerActiveX';
WM_WINMENUKEY = $100;
implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
TempClass: array [0..49] of Char;
begin
  With Msg Do Begin
    Case message Of
      WM_RBUTTONDOWN, WM_WINMENUKEY:
      Begin
        GetClassName(hwnd,TempClass,50);
        if (StrPas(TempClass) = FlashPlayerClassName) then Handled:= True;
      End;
    end; //Case
  End; //With

end;

[alexcon314]

гуд. спасибо. не пересесть ли мне на дэлфи?
а вы часом не знаете как упаковать флаш-компонент в екзе, чтоб стандалоне плеер получился, точнее прожектор? или в дэлфи это подразумевается само-собой?