Ayant réussi à intégrer Jedi cl/vcl issu de 10.3.2 avec difficulté j'ai chargé mon prog précédent(fait avec 10.3.2)
un message
violaltion d'accès à l'adresse 50060665 dans le module rtl270.bpl. Lecture de l'adresse 006A002C
-> [50060665]{rtl270.bpl } System.TMonitor.Destroy (Line 19543, "System.pas" + 1) + $9
Toutes mes unités sont visibles dans la fenêtre Projets.
Toutes sont accessibles en conception(Fiche et code) à l'exception de la fiche principale
Menu.pas. Lorsque je veux passer en conception Delphi se fige complètement et m'oblige
à passer par ALT+CTRL+DEL.

Si je ne charge pas cette fiche (Menu.pas) et que je compile et exécute le programme il n'y a
pas de problème...

Si quelqu'un a eu ce genre de problème avec cette version mal fagotée. D'avance Merci !

Début de Menu.pas
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
unit Menu;
 
interface
 
uses
  Winapi.Windows,System.SysUtils, System.Variants,System.Classes,
  Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus,
  PngImage, System.DateUtils,System.StrUtils, Vcl.ComCtrls, Vcl.ExtCtrls,
  System.ImageList, Vcl.ImgList,System.UITypes,Vcl.Buttons, System.Types,
  Vcl.StdCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids,Datasnap.DBClient, ABSMain,
  MMSystem, Jpeg, Vcl.MPlayer,System.Win.Registry,Vcl.HtmlHelpViewer;
 
type
  TForm_Menu = class(TForm)
    Database: TABSDatabase;
    Table_Clients: TABSTable;
    Table_Produits: TABSTable;
    Table_Commandes: TABSTable;
    Table_Cde_Produits: TABSTable;
    Table_Factures: TABSTable;
    Table_ClientsNumero: TStringField;
    Table_ClientsNom: TStringField;
    Table_ClientsAdresse: TStringField;
    Table_ClientsCode_Postal: TStringField;
    Table_ClientsVille: TStringField;
    Table_ProduitsReference: TStringField;
    Table_ProduitsLibelle: TStringField;
    Table_ProduitsPrix_HT: TCurrencyField;
    Table_ProduitsStock: TSmallintField;
    Table_Cde_ProduitsNum_Cde: TStringField;
    Table_Cde_ProduitsReference: TStringField;
    Table_Cde_ProduitsQuantite: TSmallintField;
    Table_Cde_ProduitsPrix_HT: TCurrencyField;
    Table_Cde_ProduitsTaux_Remise: TFloatField;
    Table_Cde_ProduitsTaux_TVA: TFloatField;
    DataSource: TDataSource;
    Table_CommandesNum_Cde: TStringField;
    Table_CommandesDate_Cde: TStringField;
    Table_CommandesNumero: TStringField;
    Table_FacturesNum_Fact: TStringField;
    Table_FacturesDate_Fact: TStringField;
    Table_FacturesNum_Cde: TStringField;
    Table_FacturesNom: TStringField;
    Table_FacturesBrut: TCurrencyField;
    Table_FacturesRemise: TCurrencyField;
    Table_FacturesTVA: TCurrencyField;
    Table_FacturesNet: TCurrencyField;
    Table_Paiements: TABSTable;
    Table_PaiementsNum_Fact: TStringField;
    Table_PaiementsPaye: TBooleanField;
    Table_PaiementsMode: TStringField;
    Table_PaiementsDate_Paiements: TStringField;
    Table_ProduitsVignette: TBlobField;
    Liste: TImageList;
    Logo: TImage;
    ClicLogo: TImage;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Table_ProduitsAfterScroll(DataSet: TDataSet);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormMouseEnter(Sender: TObject);
    procedure LogoClick(Sender: TObject);
    procedure LogoMouseEnter(Sender: TObject);
    procedure LogoMouseLeave(Sender: TObject);
    procedure ClicLogoClick(Sender: TObject);
    procedure FormClick(Sender: TObject);
 
	private           { Déclarations privées }
 
	public
        ...................
        ........................
	implementation
 
Uses Init, Maj_Clients,Maj_Produits,Maj_Commandes,Maj_Cde_Produits,
     Maj_Factures,Maj_Paiements,Sauvegarde,Archivage,Ajout_Clients,
		 Ajout_Produits,Ajout_Cdes,Ajout_Facture,Ajout_Paiements,Catalogue,
     Listing_clients,Listing_produits,Listing_cdes,Listing_factures,
		 Listing_paiements,Requete_stocks,Requete_commandes,Requete_Fact,About,
		 Cadeau;
 
{$R *.dfm}
{$R MyResources.res}              // supprimer Gestfact.dres car doublon avec MyResources.res