(Sender).parent = ?

**BuzzLeclaire** · 31/10/2009, 13h48

Bonjour à toutes

et à tous,

Je ne trouvce pas la syntaxe qui me permettrait de trouver le parent d'un composant.
J'ai créé un composant qui se nomme ShapeRu, dans l'evenement MouseMove comme je peux savoir de qui il est parent ?
voilà ce que j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure ShapeRu.ShapeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var
  Pt          : Tpoint;
  xCol, xRow  : Integer;
  xMin, xMax  : integer;
  xHeure ,i     : integer;
begin
  inherited;
//  if (TStringGridRu is TShapeRu(Sender).Parent) then
// if TShapeRu(Sender).parent = TStringGridRu then
 
end;

je ne trouve pas la condition du parent. La seul chose qui marche c'est quand je nomme directement le parent. Mais à la création du composant je ne connais pas le parent je sais juste que se sera obligatoirement un TStringGrid.

Merci de votre aide

**Dr.Who** · 31/10/2009, 13h57

pourquoi il y a un inherited dans ton gestionnaire ?

sinon tu peux faire :

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
procedure ShapeRu.ShapeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var
  Shape : TShape;
  StringGrid : TStringGrid;
  Pt          : Tpoint;
  xCol, xRow,
  xMin, xMax,
  xHeure ,i     : integer;
begin
  if not Assigned(Sender) then
    exit;
  if not (sender is TShape) then
    exit;
 
  Shape := TShape(Sender); 
 
  if not Assigned(Shape.Parent) then
    exit;
  if not (Shape.Parent is TStringGrid) then
    exit;
 
  StringGrid := TStringGrid(Shape.Parent);
 
  ....
 
end;

**BuzzLeclaire** · 31/10/2009, 14h00

Envoyé par Dr.Who

pourquoi il y a un inherited dans ton gestionnaire ?

sinon tu peux faire :

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
procedure ShapeRu.ShapeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var
  Shape : TShape;
  StringGrid : TStringGrid;
  Pt          : Tpoint;
  xCol, xRow,
  xMin, xMax,
  xHeure ,i     : integer;
begin
  if not Assigned(Sender) then
    exit;
  if not (sender is TShape) then
    exit;
 
  Shape := TShape(Sender); 
 
  if not Assigned(Shape.Parent) then
    exit;
  if not (Shape.Parent is TStringGrid) then
    exit;
 
  StringGrid := TStringGrid(Shape.Parent);
 
  ....
 
end;

T'es un as.

Merci.

pourquoi il y a un inherited dans ton gestionnaire ? Je crée un composant et j'ai toujour appris à inherrited; dans les procédures du composant, sinon en conception dans mon projet je ne peux plus utilsier MouseMove ?

**Dr.Who** · 31/10/2009, 14h57

inherited ne sert que dans l'implementation d'une classe.

exemple :

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
52
53
54
55
56
57
58
uses Grids, ExtCtrls;
 
 
type
  TShapeRu = class(TShape)
  private
    fStringGrid : TStringGrid;
    fIsOwned    : boolean;
  protected
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    constructor create(AOwner: TStringGrid); reintroduce; override;
    destructor destroy; override;
  end;
 
{ TShapeRu }
 
constructor TShapeRu.create(AOwner: TStringGrid);
begin
  inherited create(TComponent(AOwner));
 
  fStringGrid := AOwner;
  fIsOwned    := assigned(AOwner);
  if fIsOwned then
  begin
    Parent := fStringGrid;
    fStringGrid.FreeNotification(Self);
  end;
end;
 
destructor TShapeRu.destroy;
begin
  if fIsOwned then
    fStringGrid.RemoveFreeNotification(Self);
  inherited;
end;
 
procedure TShapeRu.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
  { quelque chose avant }
 
  inherited;
 
  { quelque chose aprés }
end;
 
procedure TShapeRu.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if fIsOwned and (AComponent = fStringGrid) and (Operation = opRemove) then
  begin
    fIsOwned    := false;
    fStringGrid := nil;
    Parent      := nil;
  end
  else
    inherited;
end;

par contre dans l'utilisation :

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
 
type
  TForm20 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    fShapeRu: TShapeRu;
  protected
    procedure DoSHPMouseMove(Sender: TObject; ShiftState: TShiftState; X, Y: integer);
  public
  end;
 
 
...
procedure TForm20.DoSHPMouseMove(Sender: TObject; ShiftState: TShiftState; X, Y: integer);
begin
  if Sender = fShapeRu then
  begin
    // quelque chose //
  end;
end;
 
procedure TForm20.FormCreate(Sender: TObject);
begin
  fShapeRu := TShapeRu.Create(StringGrid1);
  fShapeRu.SetBounds(10, 10, 50, 50);
  fShapeRu.OnMouseMove := DoSHPMouseMove;
end;
 
 
procedure TForm20.FormDestroy(Sender: TObject);
begin
  fShapeRu.Free;
end;

**Andnotor** · 31/10/2009, 15h12

L'inherited dans les événements peut être nécessaire s'il y a héritage de fiche.

**BuzzLeclaire** · 31/10/2009, 17h18

Salut Andnotor.. nous voici avec 2 as de Delphi.

Mon composant est comme cela

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
unit ShapeRu;
 
interface
 
uses
  Windows, SysUtils, Classes, Controls, ExtCtrls, Graphics, Math;
 
type
  TShapeRu = class(TShape)
  private
    { Déclarations }
    FStartColor    : Tcolor;
    FEndColor      : Tcolor ;
    fCaption1      : String;
    fCaption2      : String;
    fTailleMini    : Integer;
    fTailleMaxi    : Integer;
    fTailleBlocDep : Byte;
    fLeftMini      : Integer;
    fObjet         : ShortString;
    fDateDebut     : TDate;
    fDatefin       : TDate;
    fHeureDebut    : ShortString;
    fHeureFin      : ShortString;
    fPosition      : Byte;
    fPos           : TPoint;
  protected
    { Déclarations protégées }
    procedure Paint; override;
  public
    { Déclarations publiques }
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
  published
    { Déclarations publiées }
    property Caption;
    property StartColor    : Tcolor read fStartColor write fStartColor ;
    property EndColor      : Tcolor read FEndColor write FEndColor ;
    property Caption1      : String read fCaption1 write fCaption1;
    property Caption2      : String read fCaption2 write fCaption2;
    property TailleMini    : Integer read fTailleMini write fTailleMini;
    property TailleMaxi    : Integer read fTailleMaxi write fTailleMaxi;
    property TailleBlocDep : Byte read fTailleBlocDep write fTailleBlocDep;
    property LeftMini      : Integer read fLeftMini write fLeftMini;
    property Objet         : ShortString read fObjet write fObjet;
    property DateDebut     : TDate read fDateDebut write fDateDebut;
    property Datefin       : TDate read fDatefin write fDatefin;
    property HeureDebut    : ShortString read fHeureDebut write fHeureDebut;
    property HeureFin      : ShortString read fHeureFin write fHeureFin;
    property Position      : Byte read fPosition write fPosition;
    property Pos           : TPoint read fPos write fPos;
  end;
 
procedure Register;
 
implementation
 
constructor TShapeRu.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
end;
 
destructor TShapeRu.Destroy;
begin
  inherited Destroy;
end;
 
procedure TShapeRu.Paint;
  Procedure Degrader;
  Var
    TailleDuTexte : Integer;
    aBand : TRect;    { Bande rectangulaire de couleur courante }
    i : Integer;  { Compteur pour parcourir la hauteur de la fiche }
    FStartRGB  : Array[0..2] of Byte;    { RGB de la couleur de départ }
    FCurrentRGB : Array[0..2] of Byte;    { RGB de la couleur courante  }
    FDeltaRGB  : Array[0..2] of Integer; { RGB à ajouter à la couleur de départ pour atteindre la couleur de fin }
    nbtranches: integer;
    Rect:TRect;
  Begin
    Rect.Left := 2;
    Rect.Top := 2;
    Rect.Right := Self.Width-2;
    Rect.Bottom := Self.Height-2;
    self.ParentColor := false;
 
    { Calcul des valeurs RGB pour la couleur courante }
    FStartRGB[0] := GetRValue( ColorToRGB( StartColor ) );
    FStartRGB[1] := GetGValue( ColorToRGB( StartColor ) );
    FStartRGB[2] := GetBValue( ColorToRGB( StartColor ) );
    { Calcul des valeurs à ajouter pour atteindre la couleur de fin }
    FDeltaRGB[0] := GetRValue( ColorToRGB( EndColor )) - FStartRGB[0] ;
    FDeltaRGB[1] := GetgValue( ColorToRGB( EndColor )) - FStartRGB[1] ;
    FDeltaRGB[2] := GetbValue( ColorToRGB( EndColor )) - FStartRGB[2] ;
 
    { Initialisation des dimensions de la bande de couleur }
    aBand.Left :=Rect.Left;
    aBand.Right:=Rect.Right;
    nbtranches:=min(256, Rect.Bottom-Rect.Top);
    { Boucle pour remplir la fiche courante en dégradé }
    With Canvas Do
    Begin
      Pen.Style:=psSolid;
      Pen.Mode:=pmCopy;
      For i:= 0 To nbtranches-1 Do
      Begin
          { Dimensions verticales de la bande }
          aBand.Left :=Rect.Left;
          aBand.Right:=Rect.Right;
          aBand.Top := Rect.Top+Round((Rect.Bottom-Rect.Top)/nbtranches*i);
          aBand.Bottom := Rect.Top+Round((Rect.Bottom-Rect.Top)/nbtranches*(i+1));
 
          { Calcul de la couleur courante }
          FCurrentRGB[0] := (FStartRGB[0] + MulDiv( i , FDeltaRGB[0] , nbtranches )) mod 256;
          FCurrentRGB[1] := (FStartRGB[1] + MulDiv( i , FDeltaRGB[1] , nbtranches )) mod 256;
          FCurrentRGB[2] := (FStartRGB[2] + MulDiv( i , FDeltaRGB[2] , nbtranches )) mod 256;
          { Affichage sur la fiche }
          Brush.color:=RGB(FCurrentRGB[0],FCurrentRGB[1],FCurrentRGB[2]);
          FillRect(aBand);
      End;
      Font.Name := self.Font.Name;
      Font.Size := self.Font.Size;
      Brush.Style := bsClear;
      if Self.Caption1 = '' then DrawText(Canvas.Handle, PChar(Self.Caption) , -1, Rect, DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE)
      else
      Begin
        DrawText(Canvas.Handle, PChar(Self.Caption1) , -1, Rect, DT_CENTER or DT_NOPREFIX or DT_WORDBREAK);
        TailleDuTexte := DrawText(Canvas.Handle, PChar(Self.Caption1) , -1, Rect, DT_CENTER or DT_NOPREFIX or DT_WORDBREAK);
        Rect.Top := Rect.Top + TailleDuTexte + 2;
        Pen.Color := clBlack;
        MoveTo(Rect.Left+2,Rect.Top);
        LineTo(Rect.Right-2,Rect.top);
        Rect.Top := Rect.Top + 2;
        DrawText(Canvas.Handle, PChar(Self.Caption2) , -1, Rect, DT_NOPREFIX or DT_WORDBREAK);
      end;
    End;
  End;
begin
  inherited Paint;
  Degrader;
end;
 
procedure Register;
begin
  RegisterComponents('RuCompos', [TShapeRu]);
end;
 
end.

Et la procedure ci dessous qui se trouve dans la form principal, affecté au evenement shaperu lors de leur création dynamitique que je n'arrive pas justement à intégrer dans le composant !!

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
procedure TFPrincipal.ShapeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var
  StringGrid  : TStringGrid;
  Pt          : Tpoint;
  xCol, xRow  : Integer;
  xMin, xMax  : integer;
  xHeure ,i   : integer;
begin
  if not Assigned(Sender) then exit;
  if not (Sender is TShapeRu) then exit;
  if not Assigned(TShapeRu(Sender).Parent) then  exit;
  if not (TShapeRu(Sender).Parent is TStringGrid) then exit;
  StringGrid := TStringGridRu(TShapeRu(Sender).Parent);
 
  if Y > StringGrid.ClientHeight then exit;
  if (Sender is TShapeRu) then
  begin
    TShapeRu(Sender).Cursor := crSizeAll; //Cursor pour le déplacement
    if X >= TShapeRu(Sender).Width-3 then TShapeRu(Sender).Cursor:=CrHsplit; // Cursor pour l'étirement
    if (TShapeRu(Sender).Position = 2) then // Si on étire le Shape (valeur donnée par MouseDown)
    begin
      if (X > TShapeRu(Sender).TailleMini)
        and (X mod TShapeRu(Sender).TailleBlocDep = 0)
          and (X + TShapeRu(Sender).Left <= TShapeRu(Sender).TailleMaxi)
            then
            begin
              Pt := TShapeRu(Sender).ClientToParent(point(x,y));
              StringGrid.MouseToCell(Pt.X, Pt.Y, xCol, xRow);
 
              xHeure :=(Pt.X - StringGrid.ColWidths[0]
                  - (StringGrid.DefaultColWidth * (xCol-1))) div 6;
 
              for i := 1 to StringGrid.ColCount do
              if i <> xCol
              then StringGrid.Cells[i,1] := ''
              else if xHeure <> 0 then StringGrid.Cells[i,1] :=RepereHoraires[xHeure];
 
              TShapeRu(Sender).Width := X;
            end;
    end
    else
      if (TShapeRu(Sender).Position = 3) then // Si on déplace le Shape (valeur donnée par MouseDown)
      begin
        Pt := TShapeRu(Sender).ClientToParent(point(x,y));
        StringGrid.MouseToCell(Pt.X, Pt.Y, xCol, xRow);
        if InRange(xRow, StringGrid.FixedRows, StringGrid.RowCount-1) then
        begin
          TShapeRu(Sender).Top := StringGrid.CellRect(xCol, xRow).Top; //Déplacement du Shape sur la nouvelle ligne
          TShapeRu(Sender).Tag := xRow;
        end;
        xMin := StringGrid.CellRect(StringGrid.FixedCols, xRow).Left; //Position mini. en X (Left 1ère colonne éditable)
        xMax := StringGrid.CellRect(StringGrid.ColCount -1, xRow).Right - TShapeRu(Sender).Width; //Position maxi. en X (Right dernière colonne -Panel.Width)
        if ((TShapeRu(Sender).Left + X - TShapeRu(Sender).Pos.X) mod 6 = 0) then
        if ((TShapeRu(Sender).Left + X - TShapeRu(Sender).Pos.X) mod TShapeRu(Sender).TailleBlocDep = 0) then
          Begin
            X := (TShapeRu(Sender).Left + X - TShapeRu(Sender).Pos.X);
            TShapeRu(Sender).Left := EnsureRange(X, xMin, xMax); //Déplacement en X
          end;
      end;
  end;
end;
 
procedure TFPrincipal.ShapeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if not Assigned(Sender) then exit;
  if not (Sender is TShapeRu) then exit;
  if not Assigned(TShapeRu(Sender).Parent) then  exit;
  if not (TShapeRu(Sender).Parent is TStringGrid) then exit;
  if (not Enabled) or (Button <> mbLeft) then exit;
 
  TShapeRu(Sender).BringToFront;
  TShapeRu(Sender).CustomHint.HideHint;
 
  if (X >= TShapeRu(Sender).Width-3)
  then TShapeRu(Sender).position := 2
  else
    Begin
      TShapeRu(Sender).position := 3;
      TShapeRu(Sender).Pos := Point(X,Y);
    end;
end;
 
procedure TFPrincipal.ShapeMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if not Assigned(Sender) then exit;
  if not (Sender is TShapeRu) then exit;
  if not Assigned(TShapeRu(Sender).Parent) then  exit;
  if not (TShapeRu(Sender).Parent is TStringGrid) then exit;
 
  TShapeRu(Sender).Position := 0;
end;

et quand je créer le compo je fais cela :

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
        while not eof do
        begin
          Shape1 := TShapeRu.Create(StringGridSemaine);
          With Shape1 do
          Begin
            ParentFont        := False;
            Name              := 'PANEL'+FieldByName('CodeShape').AsString;
            Caption           := FieldByName('CodeCategorie').AsString;
            DateDebut         := FieldByName('DateDebut').AsDateTime;
            Datefin           := FieldByName('DateFin').AsDateTime;
            HeureDebut        := FieldByName('HeureDebut').AsString;
            HeureFin          := FieldByName('HeureFin').AsString;
            Left              := LeftOfShape(FieldByName('DateDebut').AsString,FieldByName('HeureDebut').AsString,StringGridSemaine);
            Height            := StringGridSemaine.DefaultRowHeight;
            Width             := WidthOfShape(FieldByName('DateDebut').AsString,
                                FieldByName('HeureDebut').AsString,
                                FieldByName('DateFin').AsString,
                                FieldByName('HeureFin').AsString,
                                StringGridSemaine);
            TailleMini        := 6;
            TailleMaxi        := StringGridSemaine.ColWidths[0] + (StringGridSemaine.DefaultColWidth * (StringGridSemaine.ColCount-1));
            TailleBlocDep     := 6;
            StartColor        := clCream;
            EndColor          := FieldByName('Couleur').AsInteger;
            Parent            := StringGridSemaine;
            OnMouseMove       := Self.ShapeMouseMove;
            OnMouseDown       := Self.ShapeMouseDown;
            OnMouseUp         := Self.ShapeMouseUp;
            Tag               := TagOfSalarie(FieldByName('CodeSalarie').AsString,StringGridSemaine);
            ParentShowHint    := True;
            ParentCustomHint  := True;
            Hint              := HintOfShape(FieldByName('CodeShape').AsString);
            ShowHint          := True;
          end;

Ma question de départ etait d'avoir le parent du sender, le sender etant le TShapeRu

vous voyer mieux ?

(Sender).parent = ?

Langage Delphi

Vue hybride

Discussions similaires

Partager

Partager