Listing 5

//WM_NCACTIVATE richtig einsetzen

unit ActivateWindow;

interface

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

type
   TForm1 = class(TForm)

private
   //Methode zur Botschaftsverarbeitung mit message deklarieren: M immer als var
   procedure WMNCACTIVATE(var M: TWMNCACTIVATE); message WM_NCACTIVATE;
public
   { Public-Deklarationen }
end;

var
   Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCACTIVATE(var M: TWMNCACTIVATE);
begin
   inherited;

   //WM_NCACTIVATE empfangen und auswerten
   if M.Active then caption:='Form aktiv' else caption:='Form nicht aktiv';
end;

end.

Zurück zur Hauptseite