＠＠＠＠＠＠＠关于窗体消息的问题。盼望各位达人予以指点＠＠＠＠＠＠＠ ( 积分: 200 )

beeful · 2005-09-16

需求：   1.前提：在Form上面有Panel,Edit,Button,Label很多很多控件。   2.效果：用鼠标不管单击任何位置，都要能够捕获到这个消息，并且要对当前Form进行    BringToFront处理。因为我是多个Form都是创建到主窗体的Panel上面的类似于实现一   个类似MDI的效果（但不能用MDI）。   3.要求：别告诉我一个个写Click或者用Application.OnMessage。 企盼各位达人指点：

beeful · 2005-09-16

需求：   1.前提：在Form上面有Panel,Edit,Button,Label很多很多控件。   2.效果：用鼠标不管单击任何位置，都要能够捕获到这个消息，并且要对当前Form进行    BringToFront处理。因为我是多个Form都是创建到主窗体的Panel上面的类似于实现一   个类似MDI的效果（但不能用MDI）。   3.要求：别告诉我一个个写Click或者用Application.OnMessage。 企盼各位达人指点：

iamy · 2005-09-16

写一个WndProc 然后用遍历窗体里的足见 SetWindowLong(.......

app2001 · 2005-09-16

看不大懂你的意思？？要达到什么效果，窗体里Panel里的窗体要显到最前面？？？

beeful · 2005-09-17

To:app2001 谢谢关注我把我的代码贴出来 我有一个主窗体，上面有一个 Panel。还有若干的子窗体 子窗体的创建代码如下 procedure ShowFormAsChild(var AForm:TForm; AFormClass:TClass;  AParent:TWinControl; AlignClient:Boolean = False); var  acW, acH:Integer;  i:Integer; begin  if not Assigned(AForm) then    Application.CreateForm(TComponentClass(AFormClass), AForm);  AForm.Parent := AParent;  AForm.Left := 0;  AForm.Top := 0;  if AlignClient then    AForm.Align := alClient;  acW := AForm.ClientWidth;  acH := AForm.ClientHeight;  SetWindowLong(AForm.Handle,    GWL_STYLE,    GetWindowLong(AForm.Handle, GWL_STYLE)    and    (not WS_CAPTION));  AForm.Width := acW;  AForm.Height := acH;  AForm.BringToFront;  AForm.Show; end; ------- 在主窗体中的调用：  //创建 Form2到主窗体的 PanelMain  ShowFormAsChild(TForm(Form2), TForm2, panelMain); //创建 Form3到主窗体的 panelMain  ShowFormAsChild(TForm(Form3), TForm3, panelMain); 这个时候就形成了一个好似 MDI样子的窗体， 但是点在某个子Form上的时候我需要把该 Form调到最前面来 因为子Form上面含有许多的控件。不可能一个个去覆盖 WndProc 所以想请教各位有什么办法能实现点击任何子Form就把它调到前面来。

yostgxf · 2005-09-16

能否考虑用CM_MOUSEENTER消息来代替。鼠标进入哪个窗体就把哪个窗体显示在前面。这样上面再多的控件就不会影响了

beeful · 2005-09-16

TO:yostgxf, CM_MOUSEENTER的确是可以的。但是这似乎有点不符合操作习惯阿。 不过还是谢谢你的建议。我今天试验了一下钩子，由于我对windows API 认识浅薄。 在钩子函数里面无法得到确定当前窗口的句柄。所以还是一筹莫展。往各位同行先进给我指点。。。。。。。。。。。

chenybin · 2005-09-16

看了很久，居然没看懂， AForm.Align := alClient; SetWindowLong(AForm.Handle,    GWL_STYLE,    GetWindowLong(AForm.Handle, GWL_STYLE)    and    (not WS_CAPTION)); 这两个设置了以后这个Form就会填满整个Panel，而且没有标题，所以其他的在Panel上面，其他的Form是没有机会被点到的，但是为什么楼主说可以呢

寻路 · 2005-09-17

不知道你为什么要这样做: 1、为什么不用DOCKING功能，我想你现在要实现的功能用DOCKING会更好。 2、为什么TApplicaion.OnMessage不行，很实际的，也觉得很好用，或者Screen.ActiveForm也不错啊。 如在 TApplicaion.OnMessage 中， if Screen.ActiveForm is TYourForm then ... 或者我没有看懂你要干什么！

beeful · 2005-09-17

ＴＯ：chenybin,谢谢您提醒我 惭愧，我这段代码面把创建的窗体平铺了整个Panel，因为我自己试验的代码里面加入了还原窗体大小的代码。 改成    AForm.Align := alNone;    AForm.WindowState := wsNormal; 就可以了 ＴＯ：寻路感谢您的回复。 我不是要实现DOCK的功能，其实我是想模仿MDI的效果。正好碰到这个问题。所以上来求救。 以前我还不知道有Screen.ActiveForm 这个属性。 我用ApplicationEvents试验了一下。 顺便问您一个问题。如果我获取到一个对象的Handle是不是能够找到该对象的所在Form

kk2000 · 2005-09-17

如果我获取到一个对象的Handle是不是能够找到该对象的所在Form如果我获取到一个对象的Handle是不是能够找到该对象的所在Form 使用 FindControl(Handle); 可以解决你上面的问题! 真的有看不明白你的意思! 你是想切换界面吗? 比如说 Form2 到Form3, Form3 到Form2, 等..... 这样的话考虑使用 SetWindowPos(Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW); 就不用再使用FindControl(Handle);  去查找了! 只要知道句柄就完事了. 可能也是傻说了一通! 不太了解楼主意思

beeful · 2005-09-17

TO :kk2000 暂时解决了这个问题了，感谢您提供的一个建议，虽然您没有看懂我要做什么。说实话这个效果也不是我自己愿意搞那么麻烦。公司领导建议要写一个类似MDI的窗体模型。但是又不能用MDI，所以我只有出此下策了，背景一个主窗体，然后创建出来的子窗体的Parent全部指定为主窗体的Panel.但是那样的话。就会有诸多限制。比如B窗体创建后把A窗体遮住了，用户点A窗体的时候A窗体不能到前面来。还有拖动。最小化，最大化。关闭。。。。。。。都要自己实现。本来我以为在Application.OnMessage里面会很复杂，但是经过楼上几位点拨之后。我茅塞顿开。刚刚写了一段测试代码。可以实现效果，代码如下： procedure TForm1.ApplicationEvents1Message(var Msg:tagMSG;  var Handled:Boolean); var  lControl:TWinControl; begin  lControl := nil;  lControl := FindControl(Msg.hwnd);  if (Msg.hwnd <> 0)    and (Msg.message = WM_LBUTTONDOWN)    and (lControl <> nil) then  begin    if lControl is TForm then    begin      (lControl as TForm).BringToFront;    end    else    begin      lControl := TWinControl(lControl.Owner);      (lControl as TForm).BringToFront;    end;  end; end;

chenybin · 2005-09-18

呵呵，印证了软件工程里面的一句经典的话， 当你为了一个问题苦思冥想了几天的时候，如果有人从你身边走过，不管他是谁，一定要拉住他[

][

]

sbzldlb · 2005-09-17

当你在创建另外一个窗体的时候,你可以判断panel上面有没有窗体,如果有的话,就关闭,没有的话,那创建 这样可以避免一个窗体回覆盖另外一个

beeful · 2005-09-19

多人接受答案了。

＠＠＠＠＠＠＠关于窗体消息的问题。盼望各位达人予以指点＠＠＠＠＠＠＠ ( 积分: 200 )

beeful

Unregistered / Unconfirmed

beeful

Unregistered / Unconfirmed

iamy

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

beeful

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

beeful

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

beeful

Unregistered / Unconfirmed

kk2000

Unregistered / Unconfirmed

beeful

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

sbzldlb

Unregistered / Unconfirmed

beeful

Unregistered / Unconfirmed

Similar threads