任务栏上的图标显示

[ann790914]

怎么设置让任务栏上的图标右键的时候显示添加自己的功能菜单？

[ann790914]

我试着用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系统中这样设置后任务栏上的程序图标不见了。。。

[tfeiy]

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