Discussion :

[xherault]

Salut,

J'ai un petit problème avec la gestion du OnMouseDown d'un composant d'une frame.

J'ai une frame et une fiche contenant cette frame.

Je souhaite implémenter dans la fiche l'évènement OnMouseDown d'un composant de la frame. Mais l'évènement ne semble pas déclenché.

Quelqu'un aurait il une solution?

Merci d'avance!!!

[bjl]

Après quelques petits essais sur les onmousedown de frame et de composants en frame, le comportement est différent selon l'ordre de création des procedures sur évènement.

Je m'explique.

J'ai créer une Frame et mis 2 instances sur une fiche.
Sur le première, j'ai fait une procedure 'TForm1.Frame21MouseDown'

Ensuite dans l'unit de la frame,
j'ai fait une procedure 'TFrame2.FrameMouseDown'

De nouveau dans la fiche,
j'ai ensuite créé une procedure sur la deuxième frame
'TForm1.Frame22MouseDown'
Delphi m'a automatiquement ajouté à l'intérieur l'instruction

Code :

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

Frame22.FrameMouseDown(Sender, Button, Shift, X, Y);

ce petit morceau n'a pas été rajouté dans la procedure de la première frame et le bien sur un mousedown sur cette première frame, l'évènement inclus dans l'unit de la frame n'est pas pris en compte.

J'ai refait la même chose avec un composant dans la frame, c'est la même chose

Ton problème ne serait t'il pas en rapport avec ceci ?

J'espère avoir été clair.

[xherault]

Merci pour ta réponse mais je ne pense pas que cela soit lié car mon problème est le non déclenchement de l'évènement "TForm1.Component1deFrame1MouseDown".

[bjl]

Ou l'as tu implémenté ?

Dans l'unit de la frame ?

Dans l'unti de la fiche ?

[xherault]

Je ai implémenté l'évènement dans l'unit de la fiche car j'accède à des éléments uniquement disponibles sur cette fiche.

[xherault]

C'est bon je viens de trouver après un bon repas et une petite sièste, on a l'esprit plus clair

Il m'a suffit de créer un gestionnaire d'evenement.

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
 
{----------UNIT FRAME---------------}
  TFrame
    (...)
    procedure viewContractsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    FOnRightMouseButtonClick: TNotifyEvent;
    (...)
    procedure DoRightMouseButtonClick;
  public
    (...)
    property OnRightMouseButtonClick: TNotifyEvent read FOnRightMouseButtonClick write FOnRightMouseButtonClick;
  end;
 
procedure TFrame.DoRightMouseButtonClick;
begin
  if Assigned(FOnRightMouseButtonClick) then
    FOnRightMouseButtonClick(Self);
end;
 
procedure TFrame.viewContractsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbRight) then DoRightMouseButtonClick;
end;
 
 
{----------UNIT FORM---------------}
  TForm
    (...)
  public
    (...)
    constructor Create(AOwner: TComponent); override;
    procedure RightMouseButtonClick(Sender: TObject);
  end;
 
constructor TCashFlowEditor.Create(AOwner: TComponent);
begin
  (...)
  Frame1.OnRightMouseButtonClick := RightMouseButtonClick;
  (...)
end;
 
procedure TForm.RightMouseButtonClick(Sender: TObject);
begin
  // code à executer
end;

Merci quand meme pour ton aide bjl