En faite, j'ai crée un thread d'arrier-plan qui ouvre une 'form' contenant des tables tres importantes et qui mettent beaucoup de temps à s'ouvrir...
Lorsque je kill le thread en cours d'execution, j'ai une erreur fatale !!
est-ce que c'ets possible de l'arreter ???
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 init_objets.Execute; var fini : boolean; begin fini := false; while (not Terminated) and (fini = false) do try Application.CreateForm(TDatasog3, Datasog3); Application.CreateForm(TDatasog, Datasog); datasog.Tvente.Active := true; datasog.TEcriture.Active := true; datasog.TVentligne.Active := true; fini := true; terminate; showmessage('Processus terminé'); except terminate; end; end;
Merci
Partager