托盘编程问题(50分)

守望天使 · 2006-08-15

托盘的功能实现了(程序开始运行就隐藏了窗体)；但是碰到了下面的问题； 1。如何实现最小化和关闭都是隐藏窗体到托盘中，就如flashget功能； 2。在切换状态栏上的程序图标能否根据窗体的显示而显示，窗体不显示也隐藏(如果程序开始运行时不隐藏窗体，用一个窗体来实现托盘的话，用showWindow就可以实现)； 如有解答，请先调试通过再发上来 托盘实现方法如下

用了两个窗体，主窗体被隐藏，另外一个窗体成为代替主窗体的可以通过托盘菜单调用显示的窗体) unit UntTemp; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Menus, ExtCtrls,  shellapi, StdCtrls; const  ICON_ID = 1;                   // 图标在本应用程序中的编号  MI_ICONEVENT = WM_USER + 1;    // 图标上的鼠标事件 type  TFrmTemp = class(TForm)    PopupMenu1: TPopupMenu;    EnableOrDisable: TMenuItem;    AppItem: TMenuItem;    ExitItem: TMenuItem;    procedure FormCreate(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);    procedure FormActivate(Sender: TObject);    procedure AppItemClick(Sender: TObject);    procedure EnableOrDisableClick(Sender: TObject);    procedure ExitItemClick(Sender: TObject);  private    MainHandle:THandle;    NormalIcon,DisabledIcon:TIcon;    //正常和失效两种情况下的图标    Status:Boolean;    //标志"允许使用"还是"禁止使用"    procedure InstallIcon;    procedure ChangeIcon(s:Boolean);    procedure UnInstallIcon;    procedure IconOnClick(var message:TMessage); message MI_ICONEVENT;    //捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明    { Private declarations }  public    { Public declarations }  end; var  FrmTemp: TFrmTemp; implementation uses UntMain; {$R *.dfm} procedure TFrmTemp.IconOnClick(var message:TMessage); //处理鼠标在指示状态栏对应的图标上的单击事件 var  p:TPoint; begin  //如果按下的是鼠标左键，并且允许显示，则显示Form2  if((message.lParam=WM_LBUTTONDOWN) and (Status=True)) then  begin      FrmMain.WindowState := wsnormal;    FrmMain.Show;  end;  //如果按下的是鼠标右键，则显示弹出菜单  if(message.lParam=WM_RBUTTONDOWN)then  begin    GetCursorPos(p);    PopupMenu1.Popup(p.x,p.y);  end; end; procedure TFrmTemp.ChangeIcon(s:Boolean); //自定义过程ChangeIcon，改变本程序在指示状态栏的图标 var  IconData:TNotifyIconData; begin  IconData.cbSize:=SizeOf(IconData);  IconData.Wnd:=Handle;  IconData.uID:=ICON_ID;  if s=False then //禁止使用  begin    IconData.hIcon:=DisabledIcon.Handle;    Status:=False;    AppItem.Enabled:=False;  end  else //允许使用  begin    IconData.hIcon:=Normalicon.Handle;    Status:=True;    AppItem.Enabled:=True;  end;  IconData.uFlags:=NIF_ICON;  Shell_NotifyIcon(NIM_MODIFY,@IconData); end; procedure TFrmTemp.InstallIcon; //安装图标 var  IconData:TNotifyIconData; begin  NormalIcon:=TIcon.Create;  DisabledIcon:=TIcon.Create;  NormalIcon.LoadFromFile(ExtractFilePath(Paramstr(0))+'ico/0++.ico'); //允许使用状态下的图标  DisabledIcon.LoadFromFile(ExtractFilePath(Paramstr(0))+'ico/1++.ico'); //禁止使用状态下的图标  IconData.cbSize:=SizeOf(IconData);  IconData.Wnd:=Handle;  IconData.uID:=ICON_ID;  IconData.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;  IconData.uCallBackMessage:=MI_ICONEVENT;  IconData.hIcon:=NormalIcon.Handle;  IconData.szTip:='给指示状态栏加图标的例程';  //鼠标悬在状态指示栏对应的图标上时的提示信息  Shell_NotifyIcon(NIM_ADD,@IconData); end; procedure TFrmTemp.UnInstallIcon; //卸载图标 var  IconData:TNotifyIconData; begin  IconData.cbSize:=SizeOf(IconData);  IconData.Wnd:=Handle;  IconData.uID:=ICON_ID;  Shell_NotifyIcon(NIM_DELETE,@IconData); end; procedure TFrmTemp.FormCreate(Sender: TObject); begin  Status:=True;  InstallIcon;  //安装图标  ChangeIcon(True);  //改变图标为normal状态  ShowWindow(Application.Handle,SW_HIDE);  application.ShowMainForm := false;  //隐藏主窗体不显示  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);  //在切换状态栏上不显示程序图标 end; procedure TFrmTemp.FormClose(Sender: TObject; var Action: TCloseAction); begin  UnInstallIcon;  //卸载图标  NormalIcon.Free;  DisabledIcon.Free;  //释放两个图标资源 end; procedure TFrmTemp.FormActivate(Sender: TObject); begin  FrmTemp.width:=0;  FrmTemp.Height:=0;  //ShowWindow(application.Handle,SW_HIDE);  //隐藏Form1 end; procedure TFrmTemp.AppItemClick(Sender: TObject); begin  FrmMain.WindowState := wsnormal;  FrmMain.Show; //显示给用户的主窗体 end; procedure TFrmTemp.EnableOrDisableClick(Sender: TObject); begin  if (Status=True) then  //根据状态更改菜单项标题  begin    ChangeIcon(False);    EnableOrDisable.Caption:='允许使用(&Y)';  end  else  begin    ChangeIcon(True);    EnableOrDisable.Caption:='禁止使用(&D)';  end; end; procedure TFrmTemp.ExitItemClick(Sender: TObject); begin  Close;  //关闭窗体Form1，退出程序     end; end. unit UntMain; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons; type  TFrmMain = class(TForm)    BitBtn1: TBitBtn;    procedure BitBtn1Click(Sender: TObject);  private        { Private declarations }  public    { Public declarations }  end; var  FrmMain: TFrmMain; implementation {$R *.dfm} procedure TFrmMain.BitBtn1Click(Sender: TObject); begin  Close; end; end.

守望天使 · 2006-08-15

找到一点内容，和大家分享一下 期望高手出现解答 托盘程序的缩放（托盘程序的最大化/最小化） 我们经常看到窗口最大化/最小化时的缩放效果。不幸的是这种效果只能把应用程序缩成应用程序工作栏中的图标，而且表面上似乎没有方法为最小化到托盘区中的程序添加相似的效果。 使用Windows API 函数DrawAnimatedRects可以做到。 这个函数需要窗口的句柄和两个标明起始和结束屏幕坐标的矩形区域。 以下代码说明如何使用这个API函数： unit TestForm; interface uses Windows, Classes, Forms, Controls, StdCtrls, ExtCtrls; type TZoomAction = (zaMinimize, zaMaximize); TfrmTest = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); private { private declaration } public { public declaration } end; var frmTest: TfrmTest; implementation {$R *.DFM} procedure ZoomEffect(theForm: TForm; theOperation: TZoomAction); var rcStart: TRect; rcEnd: TRect; rcTray: TRect; hwndTray : hWnd; hwndChild: hWnd; begin { 寻找系统托盘区的位置} hwndTray := FindWindow('Shell_TrayWnd', nil); hwndChild := FindWindowEx(hwndTray, 0, 'TrayNotifyWnd', nil); GetWindowRect(hwndChild, rcTray); {点击用于最大化/最小化，并切换起始/结束} if theOperation = zaMinimize then begin rcStart := theForm.BoundsRect; rcEnd := rcTray; end else begin rcEnd := theForm.BoundsRect; rcStart := rcTray; end; { 以下是关键的部分... } DrawAnimatedRects(theForm.Handle, IDANI_CAPTION, rcStart, rcEnd) end; procedure TfrmTest.FormClose(Sender: TObject; var Action: TCloseAction); begin ZoomEffect(Self, zaMinimize); end; procedure TfrmTest.FormShow(Sender: TObject); begin ZoomEffect(Self, zaMaximize); end; end.

守望天使 · 2006-08-16

1。如何实现最小化和关闭都是隐藏窗体到托盘中，就如flashget功能； 2。在切换状态栏上的程序图标能否根据窗体的显示而显示，窗体不显示也隐藏(如果程序开始运行时不隐藏窗体，用一个窗体来实现托盘的话，用showWindow就可以实现)； 问题一已经解决，解决代码如下 问题二不知道有没有解决方法，期待解答 unit UntMain; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons; type  TZoomAction = (zaMinimize, zaMaximize);  TFrmMain = class(TForm)    procedure FormClose(Sender: TObject; var Action: TCloseAction);    procedure FormShow(Sender: TObject);  private        { Private declarations }  public    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;    { Public declarations }  end;  procedure ZoomEffect(theForm: TForm; theOperation: TZoomAction); var  FrmMain: TFrmMain; implementation {$R *.dfm} procedure TFrmMain.WMSysCommand(var Msg: TWMSysCommand); begin  if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType=SC_CLOSE) then  FrmMain.close  else  DefaultHandler(Msg); end; procedure ZoomEffect(theForm: TForm; theOperation: TZoomAction); var  rcStart: TRect;  rcEnd: TRect;  rcTray: TRect;  hwndTray : hWnd;  hwndChild: hWnd; begin  //寻找系统托盘区的位置  hwndTray := FindWindow('Shell_TrayWnd', nil);  hwndChild := FindWindowEx(hwndTray, 0, 'TrayNotifyWnd', nil);  GetWindowRect(hwndChild, rcTray);  //点击用于最大化/最小化，并切换起始/结束  if theOperation = zaMinimize then  begin    rcStart := theForm.BoundsRect;    rcEnd := rcTray;  end  else  begin    rcEnd := theForm.BoundsRect;    rcStart := rcTray;  end;  //以下是关键的部分...  DrawAnimatedRects(theForm.Handle, IDANI_CAPTION, rcStart, rcEnd) end;   procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction); begin  ZoomEffect(Self, zaMinimize); end; procedure TFrmMain.FormShow(Sender: TObject); begin  ZoomEffect(Self, zaMaximize); end; end.

QSmile · 2006-08-16

以前写过，太麻烦了。就直接用了 CoolTrayIcon

守望天使 · 2006-08-31

结了,自己解决

托盘编程问题(50分)

守望天使

Unregistered / Unconfirmed

守望天使

Unregistered / Unconfirmed

守望天使

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

守望天使

Unregistered / Unconfirmed

Similar threads