程序怎样得到系统焦点(50分)

trancechow · 2003-12-03

点击系统托盘，使程序到最前端，并取得系统焦点 SetWindowPos不行，不能得到系统的焦点 上次好像在离线数据库里面找到过，现在找不到了

yu_ting · 2003-12-03

Application.BringToFront;

trancechow · 2003-12-03

Application.BringToFront不能使程序得到系统焦点。我找到答案了，再问个问题，按任务栏使程序最小化的消息怎么截获，好像和按窗口的最小化按钮不是一个消息，用SC_MINIMIZE消息截获不了

trancechow · 2003-12-03

其实我想做这样一件事情，就是当用户按下窗口最小化按钮，或者任务栏按钮或者系统的显示桌面按钮时，程序能从任务栏上隐藏，像flashget一样，怎么做

trancechow · 2003-12-04

天哪，这个问题很难吗？

labelsoft · 2003-12-04

type   TFormCommServer = class(TForm)     PopupMenu1: TPopupMenu;     miRestore: TMenuItem;     miAbout: TMenuItem; ...   private     nid:             NOTIFYICONDATA;     OldWindowState:  TWindowState; ...     procedure AppMinimize(Sender: TObject);     procedure ShowAppMainForm;     procedure HideAppMainForm;     procedure AddTrayIcon;     procedure RemoveTrayIcon;     procedure WndProcTrayIcon(var Message: TMessage);message WM_TRAYICON; ...   end; procedure TFormCommServer.FormDestroy(Sender: TObject); begin   RemoveTrayIcon; end; procedure TFormCommServer.FormCreate(Sender: TObject); begin   Application.OnMinimize:= AppMinimize;   Application.Minimize;   AddTrayIcon; end; procedure TFormCommServer.AppMinimize(Sender: TObject); begin   OldWindowState := WindowState;//mem it   ShowWindow(Application.Handle, SW_HIDE);   Hide; end; procedure TFormCommServer.ShowAppMainForm; begin   ShowWindow(Application.Handle,SW_SHOW);   Application.ShowMainForm := True;   WindowState := OldWindowState;//restore it with old mem one//wsNormal;   Application.Restore;   Show; end; procedure TFormCommServer.HideAppMainForm; begin   Application.ShowMainForm := False;   Application.Minimize; end; procedure TFormCommServer.AddTrayIcon; begin   nid.cbSize := sizeof(NOTIFYICONDATA);   nid.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;   nid.hIcon  := Application.Icon.Handle;   Move(PChar(Application.Title)^,nid.szTip,64);   nid.uCallbackMessage := WM_TRAYICON;   if nid.Wnd = Handle then     Shell_NotifyIcon(NIM_MODIFY, @nid)   else   begin     nid.Wnd := Handle;     Shell_NotifyIcon(NIM_ADD, @nid);   end; end; procedure TFormCommServer.RemoveTrayIcon; begin   if nid.Wnd <> 0 then     Shell_NotifyIcon(NIM_DELETE, @nid);   nid.Wnd := 0; end; procedure TFormCommServer.WndProcTrayIcon(var Message: TMessage); var   MousePos: TPoint; begin   if (Message.Msg = WM_TRAYICON) then   begin     if Message.LParam = WM_LBUTTONDBLCLK then     begin       if not Visible then       begin         if Assigned(FormAbout) then         begin           if not FormAbout.Showing then ShowAppMainForm           else FormAbout.BringToFront;         end         else           ShowAppMainForm;       end       else       begin         if Assigned(FormAbout) and FormAbout.Showing then         begin           FormAbout.BringToFront;           Exit;         end;         HideAppMainForm;       end;     end     else if Message.LParam = WM_RBUTTONUP then//WM_RBUTTONDOWN then     begin       GetCursorPos(MousePos);       SetForegroundWindow(Application.Handle);       Application.ProcessMessages;       PopupMenu1.Popup(MousePos.X,MousePos.Y);     end   end end; procedure TFormCommServer.miRestoreClick(Sender: TObject); begin   if Assigned(FormAbout) then     if not FormAbout.Showing then ShowAppMainForm     else FormAbout.BringToFront; end; procedure TFormCommServer.miAboutClick(Sender: TObject); begin   if Assigned(FormAbout) and not FormAbout.Showing then     FormAbout.ShowModal; end; DPR:     Application.Initialize;     ShowWindow(Application.Handle,SW_HIDE);     Application.ShowMainForm := False;     Application.CreateForm(TFormCommServer, FormCommServer);     Application.CreateForm(TFormCommSetting, FormCommSetting);     Application.CreateForm(TFormAbout, FormAbout);     Application.Run; 看看无防： http://www.delphibbs.com/delphibbs/dispq.asp?lid=2325040

trancechow · 2003-12-04

不行啊，按显示桌面，程序并没有在任务栏上消失啊，按显示桌面的按钮程序并没有被最小化，所以接管最小化事件并不起作用

watsonyin · 2003-12-04

捕获最小化消息很简单。 在Additional页找到ApplicationEvents控件，添加一个到表单中，然后在其事件OnMinimize事件中写下代码就可以了 procedure TForm1.ApplicationEvents1Minimize(Sender: TObject); begin     //供参考    showwindow(application.handle,sw_handle);    //其它操作 end;

trancechow · 2003-12-04

拜托，显示桌面后程序并没有处在最小化状态啊，根本不会触发OnMinimize事件！！！

xebaobei · 2003-12-05

你要的就是这个 没错的 {uses中加入 shellapi File->New Applicaton 在Interface部分定义一个消息常量：const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。 定义一个全局变量： NotifyIcon:TNotifyIconData，NotifyIcon是非常重要的一个变量，整个程序基本上是围着这个变量在转。TNotifyIconData是一个记录类型，按住Ctrl键，在TNotifyIconData 双击即进入ShellAPI.pas单元。（注：在Delphi中，这是一个非常好的对源代码进行分析的方法，源代码说明一切，你要想知道程序背后的内幕，最好的方法就是分析源代码！）此时出现了以下赋值语句： 　　TNotifyIconData = TNotifyIconDataA，这个意思很明显，就是说TNotifyIconData和TNotifyIconDataA是同种数据类型，接着往下看有： TNotifyIconDataA = _NOTIFYICONDATAA，意思与刚才的一样，再往下看： type _NOTIFYICONDATAA = record cbSize: DWORD; Wnd: HWND; uID: UINT; uFlags: UINT; uCallbackMessage: UINT; hIcon: HICON; szTip: array [0..63] of AnsiChar; end; 　　这可真是“千呼万唤始出来，犹抱琵琶半遮面”。现在大家很清楚了，我们刚才定义的全局变量NotifyIcon其实是一个包含有7个成分的记录类型变量，就相当于C/C++中的结构体变量（C/C++的程序员应该是再熟悉不过了）。下面我们逐个来解释记录类型中的7个部分各有什么功能。 　　1> cbSize就是你定义的NotifyIcon变量的大小，用SizeOf(TNotifyIconData)可以取得，如果你是一个熟练的C/C++程序员，你应该不会陌生。在C/C++中，每当要为一个结构体变量分配内存的时候都要：通过 SizeOf(Struct type) 来获知存放一个这样的结构体变量要多少内存。 　　2> Wnd是一个句柄，你希望托盘程序产生的消息有哪个窗体来处理就让Wnd指向那个窗体。 　　例如：你准备在任务栏的托盘小图标上单击时窗体是窗体在“显示”和“隐藏”之间切换，则把Wnd指向主窗体。  　　3> uID:如果你要创建多个托盘小程序，那么怎么区分它们呢？就是靠这个ID号来区分。  　　4> uFlags是一个标志位，它表示当前所创建的托盘程序具有哪些性质：  　　　NIF_ICON 表示当前所设置的图标（即hIcon的值）是有效的 　NIF_MESSAGE 表示当前所设置的系统消息（即uCallBackMessage的值）是有效的 　　NIF_TIP 表示当前所设置的提示条（即szTip的值）是有效的。 　5> uCallBackMessage这是7个部分里面最重要的一个。这里指定一个回调消息，也就是说这里定义一个消息名，当你单击或者右击托盘图标的时候就会向你在Wnd所指向的窗体发送一个在uCallBackMessage中定义的消息名，然后你在程序中定义一个消息出来函数来处理这个消息。这样就把Windows关于消息的整套流程都处理好了。 　6> hIcon为托盘图标的句柄，根据这个句柄你就可以增加、修改、删除图标。   7> szTip就是当你的鼠标放到任务栏托盘的小图标上的时候弹出来的提示信息。} unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs,shellapi, StdCtrls, Menus;   const WM_NID=WM_USER+1000; //定义一个消息常量 ,                     //系统规定从WM_USER开始为用户自定义消息 type   TForm1 = class(TForm)     PopupMenu1: TPopupMenu;     N1: TMenuItem;     Label1: TLabel;     procedure FormDestroy(Sender: TObject);     procedure installicon;     procedure N1Click(Sender: TObject);     procedure FormShow(Sender: TObject);   private procedure IconOnClick(var message:TMessage); message WM_NID; //自定义mouse的click事件 procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND; //截获 WM_SYSCOMMAND消息，看窗体是否处于最小化状态   public   end; var   Form1: TForm1;   NotifyIcon:TNotifyIconData;//NotifyIcon是非常重要的一个变量，                             //整个程序基本上是围着这个变量在转。                            //TNotifyIconData是一个记录类型 implementation {$R *.dfm} procedure TForm1.WMSysCommand(var Message:TMessage); begin if Message.WParam = SC_ICON then       //最小化了 begin form1.hide; installicon; end else inherited; end; procedure TForm1.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);  //从任务栏删除图标 end; procedure TForm1.installicon; begin application.ShowMainForm:=false; //SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); //上面的函数可以和application一样用。但是只隐藏任务栏 //NotifyIcon为全局变量，在程序的开头已经定义了 with NotifyIcon do begin cbSize:=SizeOf(TNotifyIconData); Wnd:=Handle; //指向当前窗体Form1的句柄 uID:=1; uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallBackMessage:=WM_NID; hIcon:=Application.Icon.Handle; szTip:='任务栏演示程序'; end; //把设置好的变量NotifyIcon加入到系统中以便处理 Shell_NotifyIcon(NIM_ADD,@NotifyIcon); end; procedure TForm1.IconOnClick(var message:TMessage); //处理鼠标在指示状态栏对应的图标上的单击事件 var   p:TPoint; begin   //如果按下的是鼠标左键，并且允许显示，则显示Form2   if message.lParam=WM_LBUTTONDOWN then     Form1.Show;   //如果按下的是鼠标右键，则显示弹出菜单   if(message.lParam=WM_RBUTTONDOWN)then   begin     GetCursorPos(p);     PopupMenu1.Popup(p.x,p.y);   end; end; procedure TForm1.N1Click(Sender: TObject); begin form1.Show; end; procedure TForm1.FormShow(Sender: TObject); begin showwindow(application.Handle,SW_SHOWNA); Shell_NotifyIcon(NIM_DELETE,@NotifyIcon); end; end.   +分~

trancechow · 2003-12-06

我真的想哭，请大家仔细看看我的问题，显示桌面后程序并没有处在最小化状态啊，根本收不到最小化的消息！！！

程序怎样得到系统焦点(50分)

trancechow

Unregistered / Unconfirmed

yu_ting

Unregistered / Unconfirmed

trancechow

Unregistered / Unconfirmed

trancechow

Unregistered / Unconfirmed

trancechow

Unregistered / Unconfirmed

labelsoft

Unregistered / Unconfirmed

trancechow

Unregistered / Unconfirmed

watsonyin

Unregistered / Unconfirmed

trancechow

Unregistered / Unconfirmed

xebaobei

Unregistered / Unconfirmed

trancechow

Unregistered / Unconfirmed

Similar threads