Bonjour,

Après un simple transfert des sources d'un projet d'un PC1 (XP) vers un PC2 (Vista), sur lequel je viens de réinstaller D2007, L'EDI du PC2 affecte à une fiche TDataModule d'un projet les propriétés d'une TForm ???

Voici le code de la déclaration de la fiche DataModule :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  IDataModule = interface(IAppServerSOAP)
    ['{51B7A278-E239-45EA-A627-2131F45729CF}']
  end;
 
  TPeekDM = class(TSoapDataModule, IDataModule, IAppServerSOAP, IAppServer)
    IBDatabaseDistante: TIBDatabase;
    IBDatabaseLocale: TIBDatabase;
    CurDataBase: TIBDatabase;
    qry: TIBQuery;
    IBTransaction1: TIBTransaction;
    QryWork: TIBQuery;
  private
Dans l'implementation l'EDI a créé la fonction create de la fiche telle que :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
procedure TDataModuleCreateInstance(out obj: TObject);
begin
 obj := TDataModule.Create(nil);
end;
Bien entendu à la compilation il déclenche une EReadError blocante car il ne trouve pas les propriétés d'une telle fiche telles que ClientHeight, ClientWitdth, etc. D'autre part avec l'appel de F12 sur le code source l'EDI édite une véritable TForm avec toutes ses propriétés y compris les icones minimize et la suite.

Nota : Sur le PC1 je n'ai aucun problème, l'EDI de D2007 reconnait bien la fiche DataModule comme un TDataModule et je n'ai pas d'erreur

Quelqu'un peut-il trouver l'origine d'un tel comportement ? Et surtout comment le corriger.