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;