盒子论坛 v2.1

如果不使用第三放控件,使用TPopupMenu控件也可以实现.
在Windows95及以后的Windows系统中,任何一个控件都是通过发送消息或对系统消息做响应来实现特定功能的.显示状态栏实际上也是一个标准的控件,对它的控制和操纵与其他的标准控件一样,也是通过发送消息和处理消息进行的.
WINSHELLAPI BOOL WINAPI Shell_NotifyIcon(
   DWORD dwMessage, //发送的消息
   PNOTIFYICONDATA pnid   //指向PNOTIFYICONDATA结构体的指针
   );
----------------------------------------------
-

作者：

chen4765654 (ccccc)	★☆☆☆☆	-
	盒子活跃会员

2005/3/27 21:03:51

3楼：

子窗体显示在任务栏上
很简单啊，只需要重载Form的CreateParams方法，如下所示：
TForm2 = class(TForm)
  private
    { Private declarations }
  public
  procedure CreateParams(var Params: TCreateParams);override;
  end;
.
.
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;//可以在TaskBar上显示Form2的标题，如果不需要可以去掉。
  Params.WndParent := GetDesktopWindow;
end;
----------------------------------------------
Begin
    For i := Now To Forever Do
        努力ing;
End;

信息

登陆以后才能回复