V5.3

2022-12-31 15:03:54 +01:00
parent 6da9edba2e
commit 49b1926678
47 changed files with 3193 additions and 16099 deletions
--- a/Unit_Pilote_aig.pas
+++ b/Unit_Pilote_aig.pas
@@ -21,6 +21,7 @@ type
    procedure ButtonDroitClick(Sender: TObject);
    procedure ButtonDev2Click(Sender: TObject);
    procedure ButtonDroit2Click(Sender: TObject);
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Déclarations privées }
  public
@@ -128,4 +129,9 @@ begin
  if AigC then close;
 end;

+procedure TFormAig.FormKeyPress(Sender: TObject; var Key: Char);
+begin
+  if key=chr(27) then close;
+end;
+
 end.