Discussion :

[ChPr]

Bonjour à toutes et à tous,

En recompilant sous Lazarus 1.6.4 un programme développé avec Lazarus 1.2.4 et plus ancien, je rencontre un problème avec PostMessage. Voilà la partie concernée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TBase.SimulationSortie(NbAff: Integer);
begin
  try
    ProgressSimul:= TProgressSimul.Create(Self);
    PostMessage(ProgressSimul.Handle, cp_Simulation, NbAff, 0);
    ProgressSimul.ShowModal;
  finally
    Screen.Cursor:= crDefault;
    ProgressSimul.Free;
  end;
end;

PostMessage doit normalement lancer la procédure :

Code :

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

    procedure Simulation(var message: TMessage); message cp_Simulation;

En plaçant un point d'arrêt dans cette procédure, je m'aperçois qu'elle n'est pas activée.

Je remplace le PostMessage par un SendMessage, cette fois, la procédure est lancée, mais la suite reste bloquée au "ProgressSimul.ShowModal.

Une idée du problème ?

Cordialement.

Pierre

[BeanzMaster]

Salut Pierre

À la place d'utiliser "postmessage" tu peux utiliser Application.QueueAsyncCall et exemples sur les messages et cette discussion que j'ai trouvée par hasard, qui devrait t'intéresser.

Bonne soirée

Jérôme

[ChPr]

Merci BeabzMaster, je vais regarder les solutions que tu me proposes.

Pour autant, cela fonctionnait avec les versions précédentes de Lazarus. Je suis devant la modification de comportement dû au changement de version. Ça ne donne pas confiance .

Cordialement.

Pierre

[BeanzMaster]

Merci BeabzMaster, je vais regarder les solutions que tu me proposes.

Pour autant, cela fonctionnait avec les versions précédentes de Lazarus. Je suis devant la modification de comportement dû au changement de version. Ça ne donne pas confiance .

Cordialement.

Pierre

Bonjour

La LCL tout comme l'IDE évolue, par conséquent certaines petites choses peuvent changer. Dans la majorité des cas on ne s'en rend pas compte. Sauf le cas où comme toi ici, tu utilises une fonction qui est très peu usitée et qui à la base avec Delphi est spécifique à Windows. Le problème de ton exemple vient du handle, à mon avis essaye avec Application.Handle sutout s'il y a du Thread dans les parages (Form.Handle n'est pas sûre avec les threads).

Dans quel cas SimulationSortie(NbAff: Integer); est-elle appelée ?
NbAff c'est pour quoi, à quoi sert ce paramètre ?

Sinon si tu veux afficher une boîte de progression, et que ton application principale doit garder le control' "un thread avec un timer à l'intérieur" dans le cas contraire un simple timer suffirait (je vois que utilises Screen.Cursor:= crDefault; j'en déduis qu'il y a un Screen.Cursor:= crHourGlass quelque part). Autre solution : appeler une fonction "Progress" qui afficherait la progression en fonction de l'avancement de ta procédure (cf ici).

[ChPr]

Décidément, tu me sauves de la mouise !

J'ai remplacé la fonction "PostMessage" par la fonction "Application.QueueAsyncCall" et tout est rentré dans l'ordre.

Du coup, je suis allé remettre cette modif avec la version 1.2.4 : tout baigne dans les différentes versions que j'ai.

Encore un grand merci .

Cordialement.

Pierre