aktives Fensterhandle bekommen

[Alexander]

hi, das dachte ich mir auch schon, doch irgendwie klappt, das nciht. Du meinst das so, oder?

Delphi-Quellcode:

procedure TForm1.WMTASKBAREVENT(var message: TMessage); 
var 
  point: TPoint; 
begin 
  case message.LParamLo of 
    WM_RBUTTONDOWN: 
      begin 
        GetCursorPos(point); 
        popupmenu1.popup(point.x, point.y); 
      end; 
    WM_MOUSEMOVE:
     begin
       test := GetForeGroundWindow();
     end;
  end; 
end;