V1.44

UnitTCO.pas

@@ -69,6 +69,7 @@ type
     EditCellX: TEdit;
     EditCellY: TEdit;
     Label19: TLabel;
+    ButtonConfigTCO: TButton;
     procedure FormCreate(Sender: TObject);
     procedure ImageTCOClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
@@ -155,6 +156,7 @@ type
       Shift: TShiftState; X, Y: Integer);
     procedure EditCellXKeyPress(Sender: TObject; var Key: Char);
     procedure EditCellYKeyPress(Sender: TObject; var Key: Char);
+    procedure ButtonConfigTCOClick(Sender: TObject);
     
   private
     { Déclarations privées }
@@ -189,6 +191,8 @@ procedure construit_TCO;
 
 implementation
 
+uses UnitConfigTCO;
+
 {$R *.dfm}
 
 
@@ -1633,4 +1637,11 @@ begin
 
 end;
 
+procedure TFormTCO.ButtonConfigTCOClick(Sender: TObject);
+begin
+  TformconfigTCO.create(self);
+  formconfigTCO.showmodal;
+  formconfigTCO.close;
+end;
+
 end.