[TFrame] Problème de gestion du OnMouseDown avec une Frame

Version imprimable

23/05/2003, 10h29
xherault

[TFrame] Problème de gestion du OnMouseDown avec une Frame

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!!!
23/05/2003, 11h50
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:

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.
23/05/2003, 11h59
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".
23/05/2003, 12h16
bjl

Ou l'as tu implémenté ?

Dans l'unit de la frame ?

Dans l'unti de la fiche ?
23/05/2003, 12h19
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.

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

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

Code:

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