Discussion :

[guillemouze]

Salut a tous,
je n'ai pas a proprement parler de problème, mais je me pose juste quelques questions quant à l’évolutivité de ma façon de coder (dans l'optique de passer prochainement sur une version de Delphi qui n'a pas 15 ans, D7 -> 10.2).
Aujourd'hui, je suis en train de stocker un objet dans le Tag d'un menu item. Je fais donc simplement

Code :

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

miRenommer.Tag := integer(tmpTabSheet);

Mais comment se code va se comporter ce code à la migration ? le Tag est il passé en 64bits (je l'éspère !) ? Du coup il faudrait que je fasse mon cast avec un NativeInt, mais je ne l'ai pas en D7.
Y a-t'il une autre facon de caster qui soit disponible en D7, et compatible avec une compilation x64 sur XE, ou faudra-il que je repasse sur tous mes stockage dans un tag pour passer en NativeInt ?

Merci

[ShaiLeTroll]

NativeInt ou NativeUInt sont 32 ou 64 bits selon le compilateur

Déclare-toi le type en D7 avant de migrer

Code :

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

1
2
3
 
type
  NativeInt = Integer;

[Andnotor]

Je confirme que Tag est maintenant un NativeInt.

Et pour rebondir sur la proposition de Shai, tu peux conditionner cette déclaration par la version du compilateur (23 = XE2), sinon NativeInt sera faux en 64 bits.

Code :

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

1
2
3
{$IF CompilerVersion < 23}
  type NativeInt = integer;
{$ENDIF}

[ShaiLeTroll]

J'ai abandonné le Tag depuis longtemps pour stocker un pointeur, je préfère stocker la valeur d'un type Enuméré ou alors Indice vers un array ou une TObjectList

Dans ton cas

Code :

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

miRenommer.Tag := integer(tmpTabSheet);

devient

Code :

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

miRenommer.Tag := tmpTabSheet.PageIndex;

et

Code :

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

TTabSheet(miRenommer.Tag).PageControl.ActivePage := TTabSheet(miRenommer.Tag);

devient

Code :

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

PageControlMachin.ActivePageIndex := miRenommer.Tag ;

[Paul TOTH]

je ne saurais trop te conseiller de ne plus utiliser ce genre de pratiques qui, même si elles fonctionnent, rendent le code difficile à maintenir

si ton menu est créé dynamiquement, c'est le plus simple tu crées une classe dérivée de TMenuItem et tu lui ajoutes un membre du type de l'objet que tu veux lui associer.

si ton menu est créé dans l'IDE il reste possible de s'en sortir par la surcharge de classe

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
 
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus;
 
type
  TMenuItem = class(Vcl.Menus.TMenuItem) // à l'intérieur de cette fiche les TMenuItem possèdent un membre Button
    Button: TButton;
  end;
 
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Objects1: TMenuItem;
    MenuObjet1: TMenuItem;
    MenuObjet2: TMenuItem;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure MenuObjectClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
// exemple d'association
  MenuObjet1.Button := Button1;
  MenuObjet2.Button := Button2;
end;
 
procedure TForm1.MenuObjectClick(Sender: TObject);
begin
// plus de doute sur ce que l'on fait
  ShowMessage('le Menu ' + TMenuItem(Sender).Name + ' est associé au bouton ' + TMenuItem(Sender).Button.Name);
end;
 
end.

[ShaiLeTroll]

Tout comme Paul Toth, je trouve qu'il manque un mécanisme explicite comme le OnCreateNodeClass du TTreeView où l'on peut définir sa propre classe de nœud, dans beaucoup de situations, cela sera tellement plus propre que l'astuce de la surcharge via homonyme qui est quand même une astuce que je trouve magnifique mais totalement incompréhensible avec le FindClass

[guillemouze]

Merci pour les infos.
@Shai et AndNotOr, j'ai déjà une unité qui gère la compatibilité, qui contient notamment DecimalSeparator, je vais y rajouter le NativeInt.
@Shai 2, j'avais fait comme ca au debut, mais je fais des tests au moment du OnContextPopup, et du coup, pour ne pas les refaire au OnClick du MenuItem, je préfère passer directement l'objet concerné.
@Paul, c'est une technique intéressante, mais principalement dans le cas d'un menu dynamique. Si il est statique, tu forces la redéclaration du type, et donc tous les TMenuItem de cette fiche auront un champ Button.
En tout cas merci de vos réponses.