请问一下,当前windows活动窗口是我的程序,当活动窗口移出,请问,我如何获得这个事件.
请问一下,当前windows活动窗口是我的程序,当活动窗口移出,请问,我如何获得这个事件.

[解决办法]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
private
procedure m_exit(var Message: TMessage); message CM_MOUSELEAVE;
public
end;

var
Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.m_exit(var Message: TMessage);
begin
Edit1.Text := FormatDateTime( 'HH:NN:SS.zzz ', now());
end;

end.


[解决办法]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMActivate(var Message: TWMActivate);
begin
if Message.Active = WA_INACTIVE then Caption:= 'Inactive '
else Caption:= 'active '
end;

end.