Salut,
jai le Code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.ShowDlgClick(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2:= TForm2.Create(nil);
  Try
    Form2.ShowModal ;
    ShowMessage('Okay');
  finally
    Form2.free ;
  end ;
end;
Dans le OnActivate du Form2 jai le Code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
procedure TForm2.FormActivate(Sender: TObject);
Begin
  application.ProcessMessages;
  Try
    Info;
  finally
    Close;
  end ;
end;
Ma Question:
Pourquoi lor de lappele du Close dans Form2, il ne ce passe rien ???
Merci