Bonsoir J'ai sur ma forme un bouton (TSpeedButton) qui est sensestopper une operation en cours , or lorsque je demarre mon operation et que je veut l'arreter , le bouton ne stop pas l application seriez vous me dire pourquoi ? Et rien ne s'affiche dans la AdvOfficeStatutBar ( qui porte bien le meme nom , a bien 4 panels) merci d'avance
les lignes de codes sont les suivantes :
procedure TGenerateur.ButtonStopClick(Sender: TObject);
begin
{Ne fermer le processus en cours qu'après avoir prévenu l'utilisateur}
if (ButtonGenerer.Down) or (SpeedButtonDemarrerFiltrageCombinaisonsDuFichier.Down) then
if Application.MessageBox('Arrêter le processus en cours ?', '', MB_ICONWARNING + MB_OKCANCEL) <> IDOK then begin
StopProcess := False;
end
else begin
StopProcess := True;
if CheckBoxEnregistrerCombinaisonsMulti.Checked then
EnregistrerLesFichiers; //On ecrit tous les fichiers
AdvOfficeStatusBar2.Panels[0].Text := 'Prêt...';
AdvOfficeStatusBar2.Panels[1].Text := '';
end;
end;