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

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

本文简介:选择自 linzhengqun 的 blog

   fsetdficon:=false; //有了自定义的图标,则默认图标自动设为false

   if ficon.empty then

    fsetdficon:=true;

   if (ismin)and(factive) then

     settray(nim_modify );

end;

//设置是否为默认图标,ficon为互相的变量,只能有其中一个

procedure tmytray.setdficon(value:boolean);

begin

  if fsetdficon<>value then

  begin

    fsetdficon:=value;

    if not fsetdficon then

    begin

      if ficon.empty then begin

        fsetdficon:=true;

        exit;

      end;

    end

    else begin

        if (ismin)and(factive) then

         settray(nim_modify);

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

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

go top