如何将工程最小化后的图标加到system tray中。。
请赐教!。。

解决方案 »

  1.   

    如果是自己写则要用到APi
    如果是想用到控件 RX包内就有此功能的控件
      

  2.   

    那在哪里可以找到RX包呢?
    用什么Api函数呢?Thank  you。
      

  3.   

    写api烦!如相应的控件,麻烦给我发一份过来:
    email:[email protected]
    thank you!
      

  4.   

    SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);procedure Tdispatcha.OnIconNotify(var Message: TMessage);
    var
      AC: LongInt;
      CP: TPoint;
    begin
      AC := Message.LParam;
      if AC = WM_RBUTTONDOWN then
      begin
        if dispatcha.Visible then
          exit;
        GetCursorPos(CP);
        PopMenudis.Popup(CP.X, CP.Y);
      end;
    end;
    procedure Tdispatcha.FormPaint(Sender: TObject);
    begin
      hide;
    end;