Discussion :

[mushy]

Bonjour tout le monde

Je dois porter du code ecrit pour delphi 4 & 5 sur delphi 2005
ca allait jusqu'ici mais je suis tombé sur un truc louche

Code :

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

Result := {$IFDEF DELPHI4}IFormDesigner{$ELSE}TFormDesigner{$ENDIF}(Barre.MainForm.Designer).CreateMethod(Name, TypeData);

Cette ligne compile sous Delphi 5, par contre si j'edite cette ligne et que j'essaye de la recompiler comme suis :

Code :

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

Result := TFormDesigner(Barre.MainForm.Designer).CreateMethod(Name, TypeData);

cela ne marche pas .... alors que j'ai enlevé la partie pour delphi 4 ... enfin soit ok j'accepte, je met l'autre partie et la ligne suivant compile bien

Code :

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

Result := IFormDesigner(Barre.MainForm.Designer).CreateMethod(Name, TypeData);

Par contre, sous delphi 2005, que ce soit IFormDesigner, ou TFormDesigner... inconnu au bataillon
mes recherches sur le net ne m'ont pas appris gd chose donc là .. je sais plus trop que faire

Barre.Mainform est un TCustomForm
et
Result doit etre de type TMethod

qqun aurait-t-il une idée ?

PS: win32... pas .NET pour moi... je me suis dit que avec .NET le portage serait encore plus galère.

[mushy]

bon je pense avoir trouvé .. en tout cas ca compile pour l'instant ...

c'est remplacé par la classe TDesigner dans l'unité DesignIntf

Code :

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

Result := TDesigner (Barre.MainForm.Designer).CreateMethod(Name, TypeData);

[Laurent Dardenne]

C'est pas plutôt IDesigner ?