Discussion :

[ShaiLeTroll]

Est ce que tu peux m'éclaicir un peu sur le PeekMessage ?
J'avoue que les messages systèmes en Delphi...

Il n'y a rien à dire de plus que la MSDN sur PeekMessage, cela permet de prendre un message dans la file pour le traiter, Application.ProcessMessages pour résumer à l'extreme c'est juste une boucle comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure PumpMessages;
var
  Msg: TMsg;
begin
    while PeekMessage(Msg, 0, 0, 0, pm_Remove) do
    begin
          TranslateMessage(Msg);
          DispatchMessage(Msg);
    end;
end;

Comment vider le buffer du clavier ?

sur les messages windows car dans ma société, ils gèrent à leur façon les envois et les réceptions des messages Windows mais je n'ai jamais eu à me demander ni pourquoi ni comment on le fait car c'est dans les fiches ancêtres qu'il y a des interceptions de messages [des fiches qui ont été créées plus de 10 années avant disons ... )

Je subi la même chose, souvent plein de truc inutile, genre capture du WM_SIZING pour empecher le changement de taille par ce qu'il n'avait pas pris le temps de lire la documentation sur BorderStyle et Constraints !
Régulièrement, j'ajoute un flag qui inhibe ces chiasses, par défaut ça conserve, et quand j'en ai besoin, je peux éteindre pour avoir un comportement VCL normal

[Paul TOTH]

voici une solution simple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Lines.Add(Sender.ClassName + IntToStr(TControl(Sender).Tag));
  TControl(Sender).Tag := TControl(Sender).Tag + 1;
  TControl(Sender).Enabled := False;
  Sleep(1000);
  Memo1.Lines.add('---');
  Application.ProcessMessages; // traite les messages en attente
  TControl(Sender).Enabled := True;
end;

avec un ProcessMessages avant d'activer le bouton, les messages en attente sont traités et les clics sur le bouton sont de fait ignorés.

[Moez.B]

Il n'y a rien à dire de plus que la MSDN sur PeekMessage, cela permet de prendre un message dans la file pour le traiter, Application.ProcessMessages pour résumer à l'extreme c'est juste une boucle comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure PumpMessages;
var
  Msg: TMsg;
begin
    while PeekMessage(Msg, 0, 0, 0, pm_Remove) do
    begin
          TranslateMessage(Msg);
          DispatchMessage(Msg);
    end;
end;

Comment vider le buffer du clavier ?




Je subi la même chose, souvent plein de truc inutile, genre capture du WM_SIZING pour empecher le changement de taille par ce qu'il n'avait pas pris le temps de lire la documentation sur BorderStyle et Constraints !
Régulièrement, j'ajoute un flag qui inhibe ces chiasses, par défaut ça conserve, et quand j'en ai besoin, je peux éteindre pour avoir un comportement VCL normal

Salut Shai,
J'ai essayé ton exemple en me lançant un peu dans la commande PeekMessage , il y a beaucoup d'explications dans les exemples de ce lien
http://www.cplusplus.com/forum/beginner/38860/
J'ai compris le principe, mais je reviens sur le problème initial car je crois que od.ps n'a pas bien expliqué les faits de l'anomalie (vu que j'ai occupé pas mal de temps le poste d'un testeur des applications écrites en DELPHI) donc j'ai essayé de décortiquer le problème et voilà ce que je trouve:
Quand on place un bouton de type TSpeedButton sur une fiche et qu'on met dans son OnClick : SpeedButton.enabled := false; un simple clic de la souris suffit de le mettre à l'état non actif.
Mais, si on simule cette action:
On place le curseur de la souris sur notre bouton.
On fait un clic (gauche) de la souris.
On déplace rapidement le curseur de la souris en sortant du cadre du bouton.
Le bouton reste toujours actif.
Je suppose donc que le clic sur le bouton ne s'est pas fait correctement car on attendait une action à faire dans le OnClick qui n'est jamais exécutée.
Si je reviens à a définition du OnClick en elle même, c'est le fait d'envoyer deux messages au bouton l'un pour le WM_LBUTTONDOWN et l'autre pour WM_LBUTTONUP.
Sinon, dans notre cas le WM_LBUTTONDOWN est envoyé mais il y a un autre événement qui est le fait de sortir du cadre du bouton juste après et puis il y a le message WM_LBUTTONUP qui est envoyé, lui aussi, en dehors du cadre du bouton.
Je suis revenu sur ton premier Post et j'ai essayé de supprimé le message ( que je ne connais pas et qui n'est pas WM_MOUSEDOWN car il n'existe pas [WM_MOUSEACTIVATE, WM_MOUSEFIRST ...] ) par un PeekMessage, j'ai essayé avec tous les messages de la souris mais en vain.
Je suis sûr que WM_LBUTTONDOWN est envoyé quand le curseur de la souris est dans le cadre du bouton. Je veux éliminer le message système par un PeekMessage pour le message WM_MOUSE_tratata (bien sur lorsque le contrôle concerné est notre SpeedButton ( pour ControlPosAt), pourque le message WM_LBUTTONUP est envoyé lorsque le pointeur de la souris est toujours dans le cadre du bouton .
Voici un des exemples que j'ai testé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.SpeedButtonClick(Sender: TObject);
var
  msg: TMsg;
begin
  while PeekMessage(msg, Parent.Handle, WM_MOUSEMOVE, 0, PM_REMOVE) do
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;
  SpeedButton.Enabled := false;
end;

je reviens à un exemple ancien qui de surcharger la méthode WndProc de TForm pour la fiche actuelle, j'ai essayé avec le message de la roulette de la souris WM_MOUSEWHEEL (juste pour le test)

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_MOUSEWHEEL then
  Begin
    SpeedButton.Enabled := false;
  End;
  inherited;

Lorsque je déroule la roulette de la souris , le bouton n'est plus actif donc Mais ce n'est pas mon objectif car je veux supprimer le message du mouvement de la souris qui sort du cadre du SpeedButton/
Est ce que tu peux tester de ta part avec le PeekMessage de nouveau ?
Merci Shai ..

[Paul TOTH]

en fait le mieux serait de ne pas bloquer l'IU pendant le traitement du clic