Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous,

Je tante d'executer la fonction FreeAndNil dans l'evenement Create d'une autre form, mais cela ne fonctionne pas.


1) je créer une form en dynamique

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
procedure TFprincipal.sComboBoxDropDown(Sender: TObject);
begin
  if (Sender is TsComboBox) then
  begin
    FListe := TFListe.Create(Application);
    Try
      Fliste.GridListe.Tag := TsComboBox(Sender).tag;
{mrOk}if FListe.ShowModal = mrOk then
      begin
// plein de travail
      end;
    Finally
      FreeAndNil(FListe);
    end;
  end;
end;

2) La où le probleme se pause

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFListe.FormCreate(Sender: TObject);
begin
  With TFPause.Create(nil) do
  begin
    try
      Caption := 'Lecture...';
      show;
// plein de fonction d'initialization de base de donné avec cnx, adotable et dbgrid
    finally
      if Assigned(FPause) then FreeAndNil(FPause);
    end;
  end;

end;

if Assigned(FPause) then FreeAndNil(FPause);

Ce parametre ne fonctionne pas, la fenetre de pause reste par dessus, obligé de faiure ALT+F4 pour qu'elle se ferme...

Truc de malade...

Où est mon erreur ?

[BuzzLeclaire]

Désolé, j'ai trouvé mon erreur.

[Dr.Who]

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFListe.FormCreate(Sender: TObject);
begin
  With TFPause.Create(nil) do
  try
    { ... }
  finally
    Free;
  end;
end;