Salut,
jai le Code suivant:
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
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;
Ma Question:
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;
Pourquoi lor de lappele du Close dans Form2, il ne ce passe rien ???
Merci
Partager