какое событие отвечает за получени/потерю фокуса у формы?

[Paul Hindenburg]

программа должна выполнять действия только пока ее окно активно, а при потере активности останавливаться, и при получении активности продолжать свою работу.
как это сделать??
пробовал на события Activate и Deactivate - не получилось

[Stilet]

Ну код в студию )

[Paul Hindenburg]

Сообщение от Stilet

Ну код в студию )

и?? какой код? мне нужно просто событие

[Stilet]

Фуххх... Твой код в котором ты чего-то пробовал.
Лана. вот пример:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
  procedure w(var q:TWMActivate); message WM_Activate;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.w(var q: TWMActivate);
begin
{$o-}
//****** CASE ******
//caption:=inttostr(q.Active);
case Loword(q.Active) of
  2,1:
   Timer1.Enabled:=true ;
  0:
   Timer1.Enabled:=False ;
else ;
end;
//****** END CASE ****** {}
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
caption:=TimeToStr(time);
end;

end.

Сойдет?

[Paul Hindenburg]

Работает, только нужно будет разобраться как))

буду win api смотреть, все понял спс