Bonjour,
J'ai une procédure qui fait afficher une forme dynamiquement. J'aimerais bien que si cette forme est affichée qu'elle se ferme automatiquement, par example après 10 secondes.
J'ai fait un timer, mais je ne sais pas comment mettre la formV.close*;
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 procedure TFormDy.HiShowFormDy(sTxt: string); var FormV: TForm; begin FormV := TForm.Create(nil); try .. .. FormV.OnClose := HiFormClose; FormV.OnShow := HiOnShow; .. FormV.ShowModal; finally FormV.Free; end; end;
Que pouvez vous me proposer..., (je n'ai pas obligatoirement besoin d'un timer, un sleep(10000) pourrais aussi faire l'affaire mais ou le placer...)
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 procedure TFormDy.HiOnShow(Sender: TObject); begin ig_Count := 0; Timer1 := TTimer.Create(nil); Timer1.OnTimer := HiTimer1Timer; Timer1.Interval := 1000; Timer1.Enabled := True; end; procedure TFormDy.HiTimer1Timer(Sender: TObject); begin Inc(ig_Count); if ig_Count > 10 then formV.close; // <-- ERROR end;
Je vous remercie beaucoup pour l'aide.
Salutation.
Partager