Discussion :

[MiJack]

Hello,

Dans un formCreate, je fais divers tests pour savoir si la form peut bien se charger. S'il y a un problème, j'aimerais que la form se ferme automatiquement. J'ai essayé de mettre form.close, form.free, etc. , mais rien à faire. Ma form refuse de se fermer.

Comment faire ?

[Sub0]

Il me semble qu'il faut paramètrer quelque chose pour que l'évènement s'effectue après ou avant l'éxécution... Je ne me souviens pas de cette propriété... (faudrait chercher dans l'aide en ligne).
Sinon, je crois qu'il faut effectuer ton test dans le OnActivate de ta form.

[cadetill]

Salut

Je crois que c'est mieux faire ces test avant de la creation (si est qu'on peut les faire).

Sinon, tu peux essayer de faire ces test dans le Loaded on dans un evenement cree par vous même qui se declanche apres le Create

* Loaded

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
 
type
  TForm1 = class(TForm)
   .....
  protected
    procedure Loaded; override;
  public
  end;
 
......
 
procedure TCustomSearchFrm.Loaded;
begin
  inherited;
 
  // les test
end;

* Ton evenement

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
 
unit Unit1;
 
interface
 
uses
  Windows,....;
 
const
  CM_AFTERCREATE = WM_USER + 84;
 
type
  TForm1 = class(TForm)
    ........
  private
    procedure CMAfterCreate(var Msg: TMessage); message CM_AFTERCREATE;
 
.....
 
 
procedure TForm1.CMAfterCreate(var Msg: TMessage);
begin
  // faire les test
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  .....
 
  PostMessage(Handle, CM_AFTERCREATE, 0, 0);
end;

A+

[MiJack]

Merci pour vos réponses. Je vais choisir la première possibilité de cadetill, c'est à dire modifier mon code pour pouvoir effectuer tous les tests avant le chargement de la form, ce qui est le plus "propre" à mon avis.

[Sub0]

Essaye en mettant OldCreateOrder à True. De toute façon, si il s'agit d'une fichie principale, le programme se terminera lorsque tu fermeras cette fiche, et dans ce cas, j'utilise la fonction halt pour terminer un programme dans le FormCreate de la fiche principale.

[EDIT] Effectivement, si cela est possible, il vaut mieux faire un test avant la création !