ttrayiconeditor = class (tcomponenteditor)
function getverbcount: integer; override;
function getverb(index: integer): string; override;
procedure executeverb(index: integer); override;
end;
procedure register;
implementation
///////ttrayiconeditor////////////////////////
procedure ttrayiconeditor.executeverb(index:integer);
begin
case index of
0: application.messagebox('你好,这是风做的托盘组件!!','关于');
end;
end;
function ttrayiconeditor.getverb(index:integer):string;
begin
case index of
0:result:='about mytray';
end;
end;
function ttrayiconeditor.getverbcount:integer;
begin
result:=1;
end;
