任务栏上的图标显示

怎么设置让任务栏上的图标右键的时候显示添加自己的功能菜单？ 问题点数：20、回复次数：2Top

1 楼ann790914（涅槃）回复于 2005-07-18 09:14:54 得分 0

我试着用kingrong的超级猛料上的例子重载函数CreateParams然后在oncreate事件中写代码如下：  
  procedure   TForm1.CreateParams(var   Para:   TCreateParams);  
  begin  
      inherited;  
      if   Application.MainForm   <>   nil   then  
          Para.WndParent   :=   GetActiveWindow;  
  end;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      SetWindowLong(Application.Handle,GWL_EXSTYLE,  
                getWindowLong(Application.Handle,GWL_EXSTYLE)   or   WS_EX_TOOLWINDOW);  
  end;  
  －－－－－－－－－－－－－－－－－－－－－  
  出现的问题是：   在2000下delphi系统中这样设置后任务栏上的程序图标不见了。。。Top

2 楼tfeiy（独孤冷）回复于 2005-07-18 09:36:03 得分 20

呵呵，我也在下那个包包．Top

相关问题

• application
• 任务栏
• 图标
• createparams
• 显示
• exstyle
• gwl
• para
• procedure tform1
• 设置

• 帖主：ann790914
• tfeiy

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载