`急`急`急``````自己制作任务栏,碰到难题了！高手进...(在线等待....) ( 积分: 200 )

我做了一个任务栏(用Toolbar)，将[开始]按钮替换了，将[托盘]也加到我的任务栏了。
SysTabControl32中的按钮，我用枚举了可见的活动窗口，做到Button上。
问题：
1、无法做到实时监控活动窗口，并将Button置按下状态。
2、新窗口建立时，会插到最前的一个Button，Windows的是放在最后面。偶做的怎么是倒过来的。
3、我取的活动窗口的图标比Windows任务栏上的图标小一点，更难看。(怎么取最好)
我在添加Button时，将Tag设成取得窗口的Handle，置按下状态是这么做的。
For I:=0 to 按钮数-1 do
Begin
If button.tag=GetActiveWindow() then
Begin
Button置按下状态
End;
End;
因为源程序不在手头上，在这里只能写个大概意思，望高手们赐教。在线等待....
[B)]

１、你可以用ApplicationEvents1控件即screen.ActiveForm
procedure ApplicationEvents1Idle(Sender: TObject;
var Done: Boolean);
begin
//
end;
２、应该是你加button的方法问题
３、看看是不是窗体比例的问题！

问题已经解决，稍候会将源码发布到2CCC盒子去，谢谢支持！

结贴了