Discussion :

[franckcl]

Bonjour,

* Delphi 10.1 update 2 - Firemonkey *

J'ai plusieurs objets qui sont hérités d'objets visuels comme par exemple:
- TMyLabel qui hérite de TLabel
- TMyButton qui hérite de TButton.
- TMyImage qui hérite de TImage.

Lors de l'exécution, l'utilisateur peut créer autant d'objets de ces types qu'il le souhaite et les disposer sur une fiche.
A un moment, j'aimerai appeler une fonction commune à chaque objet mais qui agit différemment suivant le type d'objet donc une fonction qui est déclarée au sein de chaque objet.

Sous windows, jusqu'à présent, je déclarerai une fonction qui répond à un message (WM_USER+xxx) et ensuite j'appelais sendmessage pour tous les objets de la fiche.

Sous android ce n'est pas possible.

J'aimerai savoir si une astuce de la programmation orientée objet permettait de réaliser cela (héritage, interface etc .... )

merci
Franck

[guillemouze]

Oui, une interface pourrait etre une solution

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
IMyInterface = interface
  procedure MyProc;
end;
 
TMyLabel = class(TLabel, IMyInterface)
public
  procedure MyProc; //implementation de myProc pour le label
end;
 
...
 
var
  itf: IMyInterface;
begin
  for ctrl in controls do
  begin
    if Supports(ctrl, IMyInterface, itf) then
      itf.MyProc;
  end;
end;

[franckcl]

Merci quillemouze, j'avais bien essayé les interfaces exactement comme tu l'as indiqué dans ton exemple mais il me manquait cette fonction "Supports" que je ne connaissais pas.

En revanche, j'ai eu une erreur de compilation: "E2232 L'interface IMyInterface n'a pas d'identification d'interface"

L'aide indique qu'il faut ajouter un numéro de GUID comme ceci:

Code :

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

1
2
3
4
5
 
IMyInterface = interface
 ['{EC208F55-F869-41C3-85D4-001399F4B622}']
  procedure MyProc;
end;

Le numéro de GUID peut être inséré automatiquement dans le code en pressant les touches [Ctrl] + [Shift] + [G]
Cela fonctionne très bien même si je n'ai pas tout saisi dans l'utilité d'un GUID.

[foetus]

Implementing Interfaces

Parce que, si je ne dis pas de bêtises , Delphi rajoute une surcouche aux interfaces COM de Microsoft (<- IUnknown interface pour son petit nom)

Si tu tripotes un peu Windows (par exemple la base de registre), tu vois pleins de GUID

[e-ric]

Salut

Si tu tripotes un peu Windows (par exemple la base de registre), tu vois pleins de GUID

Moralité : dans la base de registre, il suffit de suivre le GUID...

tchüss

[franckcl]

Oui oui tout à fait j'ai bien vu ces GUID dans la base.
En tous cas, cela plait visiblement aussi à Android car je l'ai compilé sous Android et ce code fonctionne parfaitement.

Merci à tous.

[foetus]

Si tu regardes Wiki ou autre, une interface COM, c'est un ensemble d'interfaces COM (déjà au moins iUnknown, et il faut penser héritage)

Donc, il faut pouvoir les identifier pour prendre la bonne interface : la tienne, celle du décodeur AVI, une d'Internet Explorer ...
Et sûrement que derrière il y aussi des problématiques de pointeurs (parce qu'il y a le DCOM, le "serveur COM" peut être en réseau) et donc il faut avoir un GUID au lieu dun pointeur.


Cela fonctionne sous Android parce que c'est une surcouche Delphi. Peut-être que le GUID n'est pas utilisé ou très peu