怎样改变任务栏按钮的图标, 注意不是右下角的NotifyIcon (100分)

H

hejiesi

Unregistered / Unconfirmed
GUEST, unregistred user!
在一个程序中有两个窗体, 在第二个窗体的CreateParams中加入以下代码

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end;

这个窗体在任务栏上显示一个任务按钮, 但那个按钮却没有图标, 怎样使他
象主窗体一样显示一个图标. 还有超级解霸在播放时任务栏按钮的图标会改变
这是怎样实现的.
 
Application.Icon := Self.Icon;
这个代码在onshow中执行,这样下面的图标就随当前form变
实现动态的也可以

-----
http://www.8421.org
 
Application.Icon 就是任务栏按钮的图标,如何改变就不说了
 
to qdyoung, hamsoft
你们可不可以再看一下题目呢.
 
在这个form的onshow里面加
Application.Icon := Application.MainForm.Icon;
试试
 
我在FormCreate的事件中写
Icon.assign(applicatin.icon);
也不行.
 

可以从一个文件提取图标,也可以是其他窗体的图标
icon.loadfromfile('')
icon:=otherform.icon
也可以在设计时指定窗体的图标
 
请几位到这里帮忙看看,谢谢。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1179597
 
原来窗体的BorderIcons没有biSystemMenu是没有Taskbar Button Icon的, 解决了散分吧
 
顶部