Handles messages of popup messages, neccessary to show Send To submenu correct.
procedure HandlePopupMessages(var Message: TMessage);
ShellBrowser.TShellBrowser