Discussion :

[Euseibus]

Bonjour,

j'ai une procédure qui tourne pour laquelle je voudrais indiquer l'état d'avancée, mais quand je la lance, elle tourne, n'affiche rien, et à la fin elle modifie le label ... vous savez ce que je peux faire pour modifier le label en cours d'execution ?

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.Dsinstaller1Click(Sender: TObject);
begin
  Lb_Resu.Caption := 'Arrêt du sevice ...'; // Lb_Resu est mon label a modifier
  StopSrv(NomService); // Je stoppe le service    
  Lb_Resu.Caption := 'Suppression du service ...'; // je remodifie le label ...
  UnInstallSrv(extractFilePath(application.exename), NomService+TypeService); // je supprime le service et le reste ...
end;

[Euseibus]

je rajoute :
j'ai essayé de mettre un show message juste apres la modif du 1er label et là je vois bien 'Arrêt du service ...'

[tourlourou]

vous savez ce que je peux faire pour modifier le label en cours d'execution ?

en fait, tu le modifies bien, comme tu l'as remarqué au ShowMessage ; ce que tu voudrais, c'est permettre le rafraichissement du label avant la fin de la procédure ; pour cela, il suffit de mettre une instruction Application.ProcessMessages qui va permettre à l'appli de traitrer les messages Windows en attente

[Euseibus]

WOW ! rapidité et efficacité

Merci bcp !