Discussion :

[medsoft]

Bonjour;

J'ai créé une petite application dans laquelle j'ai inséré une animation flash qui fonctionne très bien. Ma question S.V.P est-ce que je peux désactiver le clic droit de la souris (paramètres du flash player) lors de l'exécution du programme.

merci

[istam3]

Quelle version de Delphi ? Quel composant pour jouer l'animation flash ?

[medsoft]

J'utilise Delphi XE2 et ShockwaveFlash

[Paul TOTH]

juste le clic droit ou tous les évènements souris ? car dans ce cas il suffit de placer une fenêtre transparente au dessus ^^

[medsoft]

juste le clic droit

[istam3]

L'interception directe du message windows ne fonctionne pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    procedure MouseRightBtnDown( var msg:TMessage); message WM_RBUTTONDOWN;

par contre ceci fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:= ShutDownMouse;
end;
 
procedure TForm1.ShutDownMouse(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message = WM_RBUTTONDOWN) then
    Handled:= true;
end;

mais ça désactive le clic droit dans toute l'appli
je pense qu'il te suffit d'ajouter un bout de code pour savoir où se trouve la souris, et tu mets Handled:= true seulement si elle est au-dessus du ShockwaveFlash

[Paul TOTH]

il faut sans doute vérifier que Msg.HWnd est égal au HWnd de Flash

[istam3]

Paul TOTH il faut sans doute vérifier que Msg.HWnd est égal au HWnd de Flash

Très bonne remarque c'est tellement plus simple, c'est surement une erreur de ma part mais je n'ai pas l'habitude des handles
ça fonctionne très bien comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.ShutDownMouse(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd = ShockwaveFlash1.Handle) then
    Handled:= true;
end;

[medsoft]

Bonjour;

Merci pour votre réponse, mais ou es ce que je dois implémenté ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.ShutDownMouse(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd = ShockwaveFlash1.Handle) then
    Handled:= true;
end;

merci.

[istam3]

Dans la form où tu as ton compo TShockwaveFlash :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
unit UtestFlashmain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, OleCtrls, ShockwaveFlashObjects_TLB;
 
type
  TForm1 = class(TForm)
    ShockwaveFlash1: TShockwaveFlash;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    //MouseAboveFlash: boolean;
    procedure ShutDownMouse(var Msg: TMsg; var Handled: Boolean);
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShockwaveFlash1.Movie:= 'C:\Dev_Common\TestFlash\segment1.swf';
  Application.OnMessage:= ShutDownMouse;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ShockwaveFlash1.Play;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  ShockwaveFlash1.Stop;
end;
 
procedure TForm1.ShutDownMouse(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd = ShockwaveFlash1.Handle) then
    Handled:= true;
end;

[medsoft]

Merci infiniment ça marche