delphi实现托盘

概述如果自己从头做的话，需要定义一个TNotifyIconData类型变量，这个变量定义在 ShellAPI 单元中。 需要设置这个变量的这几个值。    _NOTIFYICONDATAA = record     cbSize: DWORD;     Wnd: HWND;     uID: UINT;     uFlags: UINT;     uCallbackMessage: UINT;    

如果自己从头做的话，需要定义一个TNotifyIconData类型变量，这个变量定义在 ShellAPI 单元中。

需要设置这个变量的这几个值。 

  _NOTIFYICONDATAA = record
    cbSize: DWORD;
    Wnd: HWND;
    uID: UINT;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: HICON;
    szTip: array [0..63] of AnsiChar;
  end;

例如：

const WM_NID = WM_USER + 100;

procedure WMNID(var msg: TMessage); message WM_NID;

 with NOtifyIcon do

begin

cbsize := SIzeof(TNOtifyIconData);  // 记录大小

wnd := self; //窗体句柄

uID := 1; // 图标ID

        UFLagS :=  NIF_MESSAGE      or NIF_ICON or NIF_ TIP;

       ucallbackMessage:= WM_NID; // 自定义消息

      Hicon := application.icon.handle;

     szTIP := 'pxb';

  {$EXTERNALSYM NIF_MESSAGE}
  NIF_MESSAGE     = $00000001;
  {$EXTERNALSYM NIF_ICON}
  NIF_ICON        = $00000002;
  {$EXTERNALSYM NIF_TIP}
  NIF_TIP         = $00000004;

end;

shell_notifyICON(sss.add,@notifyicno);

case msg.lparams of

  WM_RbuttonClick:

begin

end;

WM_LbuttonDBclIDk:

begin

end;

end;

可以使用第三方控件，可以设置 showballMessage();显示气泡提示。通过设置，可以很快的做出一个托盘应用。 TZTRayICON;

总结

以上是内存溢出为你收集整理的delphi实现托盘全部内容，希望文章能够帮你解决delphi实现托盘所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。