窗体切换问题,难者不会,会者不难.请高手赐教(50分)

levi · 2006-02-16

为把问题描述清楚，写点有点具体，请高手耐心看完哦 ^_^ protected  procedure CreateParams(var Params: TCreateParams); override; Procedure CreateParams(Var Params: TCreateParams); Begin  Inherited CreateParams(Params);  With Params Do begin    exStyle := exStyle or WS_EX_APPWINDOW; 　end; end; 我在一个子窗体中已用以上语句重写了CreateParams,这样在主窗体调用这个窗体后，可以在任务栏中出现子窗体的标题，此步骤无问题。 为方便描述,我举一个邮件软件的例子：例设软件有三个窗体，分别为收发邮件的主窗体，写邮件的窗体，以及通讯录的窗体。    当用户打开主窗体，再在主窗体点击写邮件后，此时在任务栏正常出现了<写邮件>的标题栏，用户继续点击<写邮件>里面的通讯录，显示出了<通讯录>的模式子窗体。    此时用户突然需要做其他的事情，打开了桌面上的其他程序，做完后，点任务栏上的<写邮件>标题栏最大化<写邮件>窗体。现在问题就是点击以后这个窗体是显示出来了，但因为原先用户打开了<通讯录>的模式窗体，而这个窗体此时又没有显示出来，所以程序怎么写无法进行，这个问题大家是如何解决的。    我看了一下FoxMail的程序，这种情况下，点击<写邮件>窗体后，<通讯录>窗体是会一同被还原在<写邮件>窗体上面的，而我的程序没有。    请高手赐教如何改可以做到。不能用把通讯录窗体改成AlWaysOnTop方式，会影响其他程序的使用。

levi · 2006-02-16

呜呜，怎么没人回答啊

royal1442 · 2006-02-16

任务栏只显示主窗体的标题，然后写邮件的窗体和通讯录窗体都模式打开，就行了！

bbscom · 2006-02-16

參考一下我們的吧 procedure openform(formclass: Tformclass; var fm; Aowner: Tcomponent); var  i: integer;  Child: TForm; begin  Child := nil;  for i := 0 to Screen.FormCount - 1 do    if Screen.Forms.Classtype = formclass then    begin      Child := Screen.Forms;      if Child.WindowState = wsMinimized then        ShowWindow(Child.handle, SW_SHOWNORMAL)      else        ShowWindow(Child.handle, SW_SHOWNA);      if (not Child.Visible) then Child.Visible := true;      Child.BringToFront;      Child.SetFocus;      TForm(fm) := Child;      Child := TForm(formclass.NewInstance);      exit;    end;  if Child = nil then  begin    TForm(fm) := Child;    Child := formclass.Create(Application);  end; end;

levi · 2006-02-16

to: royal1442 这样的话，只能一次写一封邮件，如果此时我还要查看主窗体中的已发送或收件箱中的邮件，不是不能操作了 to: bbscom 这个是可以解决全部的被关闭的窗口问题，但是此时我只想在恢复写邮件的窗口中恢复通讯录的窗体，怎办？当然，在这里我们是知道了是通讯录窗体，可以只查找这个基类，但如果打开的窗体类别是不确定的呢？　 有没有一个属性可以知道他被创建的父窗体或祖父窗体（三级调用时）是谁的，这样就可以解决问题了。就像进程一样，可以知道父进程，类的父类一样。

royal1442 · 2006-02-16

那你把写邮件的程序从主程序中独立出来，成一个独立的程序！

levi · 2006-02-16

谢谢 Roya11442 因为程序最终不是邮件软件，考虑到众多的原因，所以不能简单的独立出来。 我想可否在这方面下功夫呢，即在打开子窗体时，自动向写邮件窗体申报新创建的窗体的句柄，然后在点击写邮件的标题栏时，把这个子窗体激活即可。 关键是应该在窗体的什么事件，或截获WINDOWS的什么消息才能实现？ 常规的OnShow,OnActive,OnPaint等事件都不成，Wm_SysComand好像写没截获住.

levi · 2006-02-16

问题解决了，但是是同OUTLOOK的类似，还是没有达到FoxMail显示三个窗体时一样的效果 把解决方法公布出来，供大家参考 在网上看到了下面的文章，觉得有用，所以贴出来，我也是从这个文章中找到解决方法的。 解决思路同我上面的想法，就是在创建前将句柄记录下来，然后在截获消息后激活    procedure WMMsg(var Message:TMessage); Message WM_WINDOWPOSCHANGED; procedure TfrOriginGather.WMMsg(var Message:TMessage); begin  if self.Tag>0 then begin    ShowWindow(self.Tag, SW_SHOWNORMAL);    BringWindowToTop(self.Tag);  end;  DefWindowProc(self.Handle,Message.Msg,Message.WParam,Message.LParam); end; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 在网上瞎逛，看到这样一道题目“鼠标左键点击在非当前窗口的标题栏上，会产生什么样的win32消息?”。当时感觉有点茫然，不就是WM_LBBUTTONDOWN、WM_ACTIVATE和WM_SETFOCUS吗？后来感觉可能不是这么简单，就用Spy++跟踪了一下，果然多了不少消息。 在NC点击发出的消息流程如下：   WM_NCHITTEST   //在鼠标点击非激活窗体的时候发出的，如果是点在子窗体上，还会通过DefWindowProc发给父窗体   WM_MOUSEACTIVATE   //鼠标左键点在NC发出的消息   WM_NCLBUTTONDOWN   WM_WINDOWPOSCHANGING   WM_WINDOWPOSCHANGED   //在应用程序切换的时候，用来Deactivate和Activate应用程序   WM_ACTIVATEAPP   //改变窗体在Activated和Deactivated状态下的NC   WM_NCACTIVATE   //Activate和Deactivate窗体，在同一个输入消息队列中Deactivate消息在前，随后才是activate消息；在不同的输入消息队列中，这两个消息被异步处理   WM_ACTIVATE   WM_NCLBUTTONMOVE   WM_NCLBUTTONUP   //当窗体获取键盘焦点的时候，才会发出这个消息   WM_SETFOCUS   在用户区的子窗体上点击的消息流程如下：   //一般用来处理create、destroyed和鼠标消息，是子窗体发给所属父窗体的消息   WM_PARENTNOTIFY(WM_LBUTTONDOWN)   WM_MOUSEACTIVATE   WM_WINDOWPOSCHANGING   WM_WINDOWPOSCHANGED   WM_ACTIVATEAPP   WM_NCACTIVATE   WM_ACTIVATE   通过Alt+Tab让该应用程序Deactivate的消息流程如下：   //The WM_CANCELMODE message is sent to cancel certain modes, such as mouse capture. For example, the system sends this message to the active window when a dialog box or message box is displayed. Certain functions also send this message explicitly to the specified window regardless of whether it is the active window. For example, the EnableWindow function sends this message when disabling the specified window.   WM_CANCELMODE   WM_NCACTIVATE(FALSE)   WM_ACTIVATE(FALSE)   //An application sends the WM_CHANGEUISTATE message to indicate that the user interface (UI) state should be changed   WM_CHANGEUISTATE   WM_ACTIVATEAPP(FALSE)

levi · 2006-02-18

多人接受答案了。

窗体切换问题,难者不会,会者不难.请高手赐教(50分)

levi

Unregistered / Unconfirmed

levi

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

bbscom

Unregistered / Unconfirmed

levi

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

levi

Unregistered / Unconfirmed

levi

Unregistered / Unconfirmed

levi

Unregistered / Unconfirmed

Similar threads