关于窗口消息(50分)

yeah · 2000-08-29

我要制作一个控件，该控件被放置到窗口上，并接管该窗口的所有消息， 我用过TWndMethod，好象可以接收一部份，但却不触发WM_NCHITTEST消息！ 我还试过用接管MDI窗口的ClientWindow的方法如：MakeObjectInstance、Setwindowlong 还是不行，哪位指点指点？

huizhang · 2000-08-29

需要替换原来窗口的WndProc var   OldWndProcPtr, NewWndProcPtr: LongInt; begin   NewWndProcPtr := LongInt(@MyWndProc);   OldWndProcPtr := GetWindowLong(Handle,GWL_WndProc);   SetWindowLong(Form.Handle,GWL_WndProc,NewWndProcPtr); end;

yeah · 2000-08-30

to huizhang大虾：    您的例子编译通不过咧。MyWndProc应该是一个TWndMethod吧 是不是Procedure MyWndProc(Var Message:TMEssage) 执行NewWndProcPtr := LongInt(@MyWndProc)这一句时显示“要求变量”的错误，我 直接这样用也不行SetWindowLong(Handle,GWL_WNDPROC,@MyWndProc)也不行， 可能还是要使用MDI中处理ClientWindow的方法， OldWndProcPtr,NewWndProcPtr:TFarproc; begin   NewWndProcPtr:=MakeObjectInstance(MyWndProc);   OldWndProcPtr:=Pointer(GetWindowlong(Handle,GWL_WNDPROC));   SetWindowLong(Handle,GWL_WNDPROC,LongInt(NewWndProcPtr)); end; 但这样也不行，不知以上语句哪里有错误？（该过程中的Handle是控件取得的实际运行中的窗口的）

wlq · 2000-08-30

會長老師好  ^0^

Another_eYes · 2000-08-30

定义MyWndProc为 Procedure MyWndProc(Var Message:TMEssage) of object; 然后用MakeObjectInstance(MyWndProc)的返回值作为SetWindowLong的参数. (注意: 释放时别忘记FreeObjectInstance</font&gt

或者: 定义为如下这种全局函数: function MyWndProc(Handle: THandle; Msg: Cardinal; WParam, LParam: Integer): Integer; 这时可以直接将@MyWndProc作为SetWindowLong的参数传递了.

yeah · 2000-09-01

Another_eYes大虾的方法也不行哦，最好请给出实现的过程，谢谢。

yeah · 2000-09-03

Another_eYes，请给出你的实现过程！

sunstone · 2000-09-03

截获窗口消息 定义一个过程 procedure HandleMessage(var Msg: TMsg; var Handled: Boolean); procedure TKeySystem.HandleMessage(var Msg: TMsg; var Handled: Boolean); begin   if Msg.Message = 消息 then   begin....end; 在formoncreate事件中加入Application.OnMessage := HandleMessage;

yeah · 2000-09-04

sunstone大哥：    可能您没看清楚题目吧，我说的是制作一个控件，然后让这个控件接管所有该FORM的消息 ，比如我做的控件名叫TMsgSpy，按您的说法，可以定义一个Public方法，然后在该FORM的 ONCREATE事件中指定Application.OnMessage:=MsgSpy.ProcMsg，这样我想可能行得通。 我的控件要做的是，在每个窗口上放一个我的控件，就可以接管该窗口的所有消息，而不 要用户添加代码！（因为我的控件有特殊用途，要改变所有放置该控件的窗口的外观）

Another_eYes · 2000-09-04

要实现过程? 很容易. controls.pas 第4842行起.

yeah · 2000-09-07

to Another_eYes:    您大虾说的是D5还是D4，我在D4中找不到，麻烦您具体说说，怎样在控件中                                                                ^^^^^^ 接管一个窗体的所有消息？(该控件被放置在该窗体上)

BaKuBaKu · 2000-09-09

Another_eYes 大虾的意思是用新的窗口过程 (Window procedure) 替换 Form 原来的 窗口过程，这个操作称为“子类化”(Subclassing)，查一查 API Help 的 <Subclassing a Window> 条目吧，   为什么总要别人给出完全现成的代码呢？

BaKuBaKu · 2000-09-09

Sorry, some words was missing. 请查一查 API Help 的 Subclassing a window 条目

yeah · 2000-09-12

To BaKuBaKu:     我知道API中的子类化技术，而且MDI父窗口中设置ClientWindow的背景图片就使用了 此技术，有许多现成的代码。     正是因为我知道要使用这类API，而且我也用了，但不能成功我才来问，如果每个大虾 都像您大虾一样，回答问题时总叫别人去查API帮助，那人人都是大虾了*_^(如有冒犯， 请原谅）

wjiachun · 2000-10-25

附加功能   将问题提前    

gcq · 2000-10-29

yeah · 2000-11-06

还是没人回答吗？

BaKuBaKu · 2000-11-06

To yeah:    不是没有人回答，是已经回答了。    你的控件应该继承 TComponent 类，放到窗体上之后，它的 Owner 默认就是 Form 。   TMyComponent = class (Component)   private     ...     OldWndProc: Pointer;     procedure WndProc(var Msg: TMessage);     ...   public     constructor Create(AOwner: TComponent);   end; constructor TMyComponent.Create(AOwner: TComponent); begin   Inherited;   OldWndProc=GetWindowLong(TForm(AOwner.Handle), GWL_WNDPROC);   SetWindowLong(TForm(AOwner.Handle), GWL_WNDPROC, Longint(MakeObjectInstance(WndProc))); end; procedure TMyComponent.WndProc(var Msg: TMessage); begin   with Msg do     if Msg = (Messages you need) then (Do you operations)     else       Result := CallWindowProc(OldWndProc, TForm(AOwner.Handle), Msg, wParam, lParam); end;

sungw · 2000-11-06

go

wjiachun · 2000-12-22

yeah:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。

关于窗口消息(50分)

yeah

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

yeah

Unregistered / Unconfirmed

wlq

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

yeah

Unregistered / Unconfirmed

yeah

Unregistered / Unconfirmed

sunstone

Unregistered / Unconfirmed

yeah

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

yeah

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

yeah

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

yeah

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

sungw

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads