组件制作之五(托盘组件)[7]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 linzhengqun 的 blog

当然也有几个事件方法指针:

foniconclick: tnotifyevent;

fonicondblclick: tnotifyevent;

foniconmousemove: tmousemoveevent;

foniconmousedown: tmouseevent;

foniconmouseup: tmouseevent;

然后在wndproc中判断消息,并调用相应的事件调度函数。看代码吧,有解释。

 

好了,三个技术解决了,第四个呢,还是等代码出来以后再加组件编辑器吧。以下是源代码:

 

unit mytray;

 

interface

 

uses

  windows, messages, sysutils, classes, graphics, controls,

  forms, dialogs, shellapi, extctrls,stdctrls;

 

const

//自定义托盘消息

   wm_traymsg=wm_user+10;

 

type

 //恢复窗口的方式,左双击,右双击,左单击,右双击

  trmode=(ldbclick,rdbclick,lclick,rclick);

 

  tmytray=class(tcomponent)

  private

本文关键:组件制作之五(托盘组件)
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top