Как узнать форма активна или нет?

Материал из DRKB

Как узнать форма активна или нет?[править | править код]

type
   //...
  private
    { Private declarations }
    procedure WMNCACTIVATE(var M: TWMNCACTIVATE); message WM_NCACTIVATE;
  end;


implementation

//...

procedure TForm1.WMNCACTIVATE(var M: TWMNCACTIVATE);
begin
  inherited;
  if M.Active then
    Caption := 'Form active'
  else
    Caption := 'Form not active';
end;


Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 00424