Savoir quand la fiche est activée / désactivée



L'évenement OnDeactivate de la fiche ne se déclenche pas quand la fiche n'est plus activée, donc il nous faut surcharger la méthode WndProc de la fiche pour gérer le message WM_ACTIVATE :

Savoir si la fiche est activée ou pas

interface

type
  TForm1 = class(TForm)
  protected
    { Déclarations protégées }
    procedure WndProc(var Msg: TMessage); override;
  end;

implementation

procedure TForm1.WndProc(var Msg: TMessage);
begin
  if (Msg.msg = WM_ACTIVATE) then
    begin
      if (LoWord(Msg.wParam) = WA_INACTIVE) then Caption := 'Désactivé'
      else Caption := 'Activé';
    end;
  inherited WndProc(Msg);
end;


3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.006 Secs