override et Inherited d' une fonction avec resultat.

Salut à tous,

je fais le override d' une fonction comme ça dans un des mes compos:

protected
  procedure FontionXYZ: Boolean; override;

j' aimerai faire cela ::

procedure FontionXYZ: Boolean;
begin
  RESULT := Inherited FontionXYZ;

  if not RESULT
  then bla bla bla ...;
end;

Mais RESULT est toujours à true même lorsque la fonction originelle renvoie false.
Alors vrai bug ou je dois écrire cela d' une autre façon?

Pour l'instant j' ai fait un copier coller du code dans la fonction héritée mais ce serait plus correct d' utiliser Inherited ...

A+

Salut !

A mon avis, ce serait plus simple si tu nous faisait un copier-coller de ta vraie fonction car ça m'étonnerait que ton code là compile (tu nous as pondu une procédure avec résultat ^^ et pas que ça d'ailleurs)

Mets donc le code de la procédure de l'ancêtre et celle qui ne fonctionne pas pour qu'on regarde ça de plus près.

++

Bem si ça compile ^^
Il s' agit de mon dernier compo posté hier :

    protected
      function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;



function TcyDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  // doesn' t work because returns always true :
// RESULT := Inherited DoMouseWheelDown(Shift, MousePos);

  RESULT := false;  

  if Assigned(OnMouseWheelDown)
  then OnMouseWheelDown(self, Shift, MousePos, RESULT);

  if not RESULT      // Not handled
  then cyMouseWheelDown(self, Shift, MousePos, RESULT);
end;

A+

A en voir ton code, tu passes Result dans la procédure OnMouseWheelDown qui modifie la valeur de Result (c'est un paramètre var).

Donc il se peut que la fonction ancêtre retourne False, mais que OnMouseWheelDown() modifie cette valeur en True, donc ton code d'en dessous n'est jamais exécuté !

[ou alors j'ai pas tout compris ce que tu souhaites faire]

Au lieu de faire cela: 
  RESULT := false;  

  if Assigned(OnMouseWheelDown)
  then OnMouseWheelDown(self, Shift, MousePos, RESULT);

  if not RESULT      // Not handled
  then cyMouseWheelDown(self, Shift, MousePos, RESULT);

Je veux faire cela:
  RESULT := Inherited DoMouseWheelDown(Shift, MousePos);

  if not RESULT      // Not handled
  then cyMouseWheelDown(self, Shift, MousePos, RESULT);

Malheureusement RESULT := Inherited DoMouseWheelDown(Shift, MousePos) est toujours true.

A+

La code suivant étant ce qui est dans DoMouseDown originel de TControl: 

  RESULT := false;  

  if Assigned(OnMouseWheelDown)
  then OnMouseWheelDown(self, Shift, MousePos, RESULT);

A+

En fait la syntaxe semble bonne!
RESULT := Inherited DoMouseWheelDown(Shift, MousePos);

Ça appelle l' événement OnMouseWheelDown (propriété FOnMouseWheelDown, j' ai vu ça avec F7).
Mais après ça va faire ce code:
function TcyDBGrid.SelectCell(ACol, ARow: Longint): Boolean;
begin
  Result := True; 
  if Assigned(FOnSelectCell) then FOnSelectCell(Self, ACol, ARow, Result);
end;

Puis reviens dans ma procedure ...
Le fait que SelectCell = true n' a rien à voir avec:
Inherited DoMouseWheelDown qui renvoie toujours true non?

D' ailleurs, je viens de voir cela:
function TCustomGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := inherited DoMouseWheelDown(Shift, MousePos);
  if not Result then
  begin
    if Row < RowCount - 1 then Row := Row + 1;
    Result := True;
  end;
end;

Je fais comme eux ^^
Alors, une idée?

A+

De rien !
La VCL et ses méthodes bizarres semble en déstabiliser plus d'un ! (thwilliam lui aussi semble en baver avec elle)
Et moi le premier. Je ne te dis même pas le nombre d'heures passées à comprendre ces phénomènes étranges (voire carrément ne pas les comprendre...).