Discussion :

[Invité]

Bonjour,

j'ai résolu mon problème autrement mais je me pose toujours la question (valable aussi bien pour une Form appelée par Show que par ShowModal).

Dans une séquence d'affichage d'une Form à partir de quel comment et comment peut-on fermer cette Form ?

Mon problème était celui-là :

Une Form1 dispose d'une dbGrid. Un double-clic sur une ligne ouvre (Show ou ShowModal suivant les circonstances) une Form2 qui active son Query pour bloquer l'enregistrement. Si cela se passe mal, je veux que ma Form2 se ferme automatiquement.
L'activation du Query était placée initialement dans le Create de la Form2... L'exception déclenchée par le Query ne ferme pas à ce niveau la Form2.

J'ai réglé le problème à partir de la Form1. Mais quand même...

En supposant que le déclenchement d'une exception dans le Create d'une Form se déclenche, comment ferme-t-on automatiquement cette Form ?

Procédure d'appel en VCL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TfElv.btUPDClick(Sender: TObject);
begin
  gelID := DBGrid1.DataSource.DataSet.FieldByName('elID').AsString;
  if not Assigned(fElvUID) then begin
    with TfElvUID.Create(nil) do
      try
        ShowModal;
      finally
        Free;
      end;
      DBGrid1.DataSource.DataSet.Refresh;
  end;
end;

Merci.

[Invité]

... sinon autre solution : lancer un Timer (Intervall = 1) dans le Create de Form2 (appelée ici fElvUID)

Code :

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

1
2
3
4
5
6
7
procedure TfElvUID.FormCreate(Sender: TObject);
begin
  tiCREATE.Enabled  := True;
 {IHM}
  RAZ(TForm(Sender));
  INSEEmess.Caption := '';
end;

Si on place un TForm.Close dans une exception figurant dans le code du Timer, l'instruction est exécutée :

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
procedure TfElvlUID.tiCREATETimer(Sender: TObject);
var
  bOK : boolean;
begin
  tiCREATE.Enabled := False;
  [...]
{ mySQL identification}
  bOK := False;
  with mySQLQuery do try
    TableName := 'xxxxxxx';
 
    with SQL do begin
      Clear;
      Add(sREQ);
    end;
    MacroByName('TABLE').Value := TableName;
 
    with Params do begin
      ParamByName('paID').AsString := lsAID;
    end;
    Open;
    if isEmpty then begin
      MessageDlg( 'Aucun enregistrement.',
                  TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOK], 0);
      Close;
    end else begin
       [...]
       Close;
       bOK := True;
     end;
  except
     {$IFDEF DEBUG}
      on E: EFDDBEngineException do  begin
        Showmessage(E.Errors[0].Message);
      end;
     {$ELSE}
      Close;
     {$ENDIF}
  end;
  if not bOK then begin
    MessageDlg(  'La lecture de l''enregistrement est impossible. ',
                 TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0);
    Close; //<-- Fermeture de la Form
  end else begin
     with elCODE do begin
      SetFocus;
      SelStart := Length(Text);
    end;
  end;
end;

Or pendant le Timer, parallèlement est exécutée une partie du code de création et d'affichage de la fenêtre... D'où la question initiale : à partir de quel événement dans la séquence de création/affichage d'une TForm, un Close est-il utilisable ?