右击任务栏上的delphi程序，菜单项怎么少了？

Question

无论Delphi本身还是编译出来的程序，在任务栏上右击鼠标，弹出的菜单项都比其它程序少？这是为什么？怎样变全？

Answer 1

转载：首先，重载主窗体的CreateParams，修改如下：procedure TFrmModal.CreateParams(var Para: TCreateParams);begin  inherited;  Para.WndParent := GetDesktopWindow;end;然后在主窗体的OnCreate中添加如下代码：with Application do  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);OK，按F9运行你的程序看看？:-)。注意，一定要对主窗体进行上面的操作哦。BUG:感谢stanely发现这个BUG：最小化只是最小化application这个窗体，应用程序主窗体没反应阿！解决方法，拦截WM_SYSCOMMAND消息：procedure TFrmMain.WMSysCommand(var msg: TMessage);begin  if msg.WParam = SC_MINIMIZE then    Self.WindowState := wsMinimized  else   inherited;end;