把一个toolbutton设为check状态，代码如下，执行正常，但放在菜单里面，区不能让其隐藏状态栏上面的图标。就其原因，是form2的.Createparams(var Params: TCreateParams); 想知道，怎么样才可以放在事件里面呢？

[code delphi]
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
if ToolButton1.Down then
begin
form2:=TForm2.Create(self);
with form2 do
begin
top:=20 ;
left:=Screen.Width -form2.Width ;
FormStyle:=fsStayOnTop;
Show;
Timer1.Enabled :=true;
end;
PopupMenu2.Items[1].Caption :='关闭每日提醒';
end
else begin
form2.Close ;
PopupMenu2.Items[1].Caption :='显示每日提醒';
end;
end;

procedure TForm2.Createparams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW;
Params.WndParent := GetDeskTopWindow;
end;
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !